Question

Cho Dulieu.INP chứa các số nguyên mỗi số cách nhau 1 dấu cách và được ghi trên 1 hàng.

 Viết chương trình đếm trong day dãy các số chẵn và chia hết cho 3. Tính tổng của chúng. Kết quả được ghi vào tệp KQ.TXT. Mỗi kết quả ghi trên 1 hàng

Answer 1

const fi='dulieu.inp'

fo='kq.txt'

var f1,f2:text;

a:array[1..100]of integer;

i,n,dem,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

begin

n:=n+1;

read(f1,a[n]);

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i] mod 6=0 then 

begin

dem:=dem+1;

t:=t+a[i];

end;

writeln(f2,dem);

writeln(f2,t);

close(f1);

close(f2);

end.