Question

Viết chương trình đọc số nguyên n từ tệp songuyen.txt ; ghi vào tệp kluan.txt kết luận n là số chẵn hay số lẻ ? Biết tệp songuyen.txt chỉ chứa một số nguyên duy nhất.

Answer 1

const fi='songuyen.txt'

fo='kluan.txt'

var f1,f2:text;

n:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

if n mod 2=0 then writeln(f2,'La so chan')

else writeln(f2,'La so le');

close(f1);

close(f2);

end.