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ố
2 câu trả lời
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.
