Question

1,cho dãy số nguyên a1....an , phân tử k

a,đếm xem có bao nhiêu pt giống k

b,đếm xem có bao nhiêu phân tử chia hết cho k

2, cho dãy số nguyên a1....an,

a,đếm xem có bao số chẵn , số lẽ

b,có bao nhiêu số nguyên tố

Answer 1

Mình chỉ viết một đoạn chương trình xong bạn đưa vào chương trình chính nhé , nếu có gì thắc mắc thì nhắn tin với mình.

1.

a) d:=0;

For i:=1 to n do if a[i]=k then inc(d);

b) dem:=0;

For i:=1 to n do if a[i] mod k=0 then inc(dem);

2.

a) dem:=0; d:=0;

For i:=1 to n do

begin

if a[i] mod 2=0 then inc(d);

if a[i] mod 2<>0 then inc(dem);

end;

b);

function nt(x: integer): boolean;

var i: integer;

begin

nt:=false;

if x<2 then exit;

for i:=2 to trunc(sqrt(x)) do

if x mod i = 0 then exit;

nt:=true;

end;

// Thân chương trình

d:=0;

for i:=1 to n do if nt(a[i]) then inc(d);