Question

Cho tệp SUM.INP gồm 2 dòng: dòng1 chứa số nguyên dương n(n<=100)

Dòng 2 chứa n số nguyên dương, mỗi số cách nhau một khoảng trắng.

Viết ct thực hiện yêu cầu sau:

- đọc số nguyên n và dãy số đó vào ct

- đếm các số là bội của 3

- ghi kq tính được ra tệp SUM.OUT

Mọi người giúp mk với. T2 mk thi rồi. Cảm ơn mn ạ

Answer 1

program hoc24;
var f, g: text;
n, i, dem: integer;
begin
assign(f, 'SUM.INP');
reset(f);
assign(g, 'SUM.OUT');
rewrite(g);
readln(f, n);
while not eof(f) do
begin
read(f, i);
if i mod 3 = 0 then dem:=dem+1;
end;
Write(g, 'Co ',dem,' so la boi cua 3');
close(g);
readln;
end.

Answer 2

const fi='sum.inp';

fo='sum.out';

var f1,f2:text;

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

i,n,dem:integer;

begin

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

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

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

dem:=0;

for i:=1 to n do

if a[i] mod 3=0 then inc(dem);

writeln(f2,dem);

close(f1);

close(f2);

end.