Question

Cho 100 số nguyên được ghi trong tệp 'number.txt'. Hãy viết chương trình đọc 100 số nguyên trong tệp trên và sau đó ghi ra tệp 'KQ.TXT' các số chia hết cho 3

Answer 1

var a,b:text;
s:integer;

begin
assign(a,'number.txt');
assign(b,'KQ.txt');
reset(a);
rewrite(b);
while not eof(a) do
begin
read(a,s);
if s mod 3 =0 then
writeln(b,'s=',s,s:3);
end;
close(a);
close(b);
readln
end.