Cho tệp văn bản SONGUYEN.TXT có nhiều dòng mỗi dòng chứa 2 số nguyên được phân cách nhau bởi 1 kí tự trống . Viết chương trình tính tổng , hiệu , tích , thương rồi ghi kết quả vào tệp KQ.TXT mỗi dòng chứa kết quả của một cặp số
var f1,f2:text; a,b:longint; begin assign(f1,'SONGUYEN.TXT');reset(f1); assign(f2,'KQ.TXT');rewrite(f2); while not eof(f1) do begin readln(f1,a,b); writeln(f2,a+b,' ',a-b,' ',a*b,' ',a/b:0:2); end; close(f1);close(f2); end.
const fi='SONGUYEN.TXT'; fo='KQ.TXT'; var a,b:longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); while not(eof(input))do begin read(a,b); writeln(a+b,#32,a-b,#32,a*b,#32,a/b:0:2); end; close(output); close(input) end.