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”
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”
By Liliana
By Liliana
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”
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.
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.