Viết chương trình đọc từ tệp "BAITAP.DAT". Hãy tìm các số nguyên chẵn và lưu vào tệp văn bản "SOCHAN.DAT"
2 câu trả lời
var f1, f2: text;
a: longint;
Begin
Assign(f1, 'baitap.dat'); reset(f1);
Assign(f2, 'sochan.dat'); rewrite(f2);
While not eof(f1) do
Begin
While eoln(f1) do readln(f1);
Read(f1, a);
If a mod 2=0 then write(f2, a, ' ');
End;
Close(f1); close(f2);
End.
program so_chan;
var f,g:text;
so:integer;
begin
Assign(f,'BAITAP.DAT'); reset(f);
Assign(g,'SOCHAN.DAT'); rewrite(g);
while not eof(f) do
begin
read(f,n);
if n mod 2=0 then write(g,n,' ');
end;
close(f); close(g);
end.
