Question

Cho một dãy số nguyên, mỗi số trên một dòng được ghi trong tệp 'SONGUYEN.TXT'. Viết chương trình pascal tạo tệp 'SOCHAN.TXT' chứa các số chẵn có trong tệp 'SONGUYEN.TXT', mỗi số cách nhau một dấu cách.

Answer 1

const fi='songuyen.txt';
fo='sochan.txt';
var f1,f2:text;
a:array[1..100]of integer;
i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,a[dem]);
end;
for i:=1 to dem do
if a[i] mod 2=0 then write(f2,a[i]:4);
close(f1);
close(f2);
end.