Quảng cáo
1 câu trả lời 278
1 năm trước
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.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!