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ố
uses crt; var f:text; i,n,k,d:longint; a:array[1..10000000]of longint; begin clrscr; assign(f,'input.txt');reset(f); readln(f,n); for i:=1 to n do read(f,a[i]); write('Nhap k: ');readln(k); close(f); assign(f,'ketqua.txt');rewrite(f); for i:=1 to n do if a[i] mod k=0 then inc(d); writeln(f,d); close(f); end.
a,b:longint; begin Assign(f,'SONGUYEN.TXT'); reset(f); Assign(g,'KQ.TXT'); rewrite(g); while not eof(f) do begin readln(f,a,b); writeln(g,a+b,' ',a-b,' ',a*b,' ',a/b:0:2); end; close(f); close(g); end.