Cho tệp DATA.TXT chứa liên tiếp các số nguyên cách nhau bằng dấu cách và không kết thúc bằng kí tự xuống dòng, hãy lập trình tìm và in các số chẵn trong tệp DATA.TXT ra màn hình
2 câu trả lời
program eoln;
var f: text;
a: byte;
begin
assign(f, 'data.txt'); reset(f);
while not eoln(f) do
begin
read(f, a);
if a mod 2 = 0 then write(a, ' ');
end;
readln;
end.
program bai_giai;
uses crt;
var f:text;
n:integer;
begin
clrscr;
Assign(f,'DATA.TXT'); reset(f);
while not eof(f) do
begin
readln(f,n);
if n mod 2=0 then write(n,' ');
end;
close(f); readln;
end.
