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
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.
