Viết chương trình tính tổng các cặp số nguyên được lưu trữ trong têpn 'INPUT.TXT' và ghi kqua vào tệp 'KETQUA.TXT' giúp mình với
2 câu trả lời
var f1,f2:text;
a,b:integer;
begin
assign(f1,'INPUT.TXT'); reset(f1);
assign(f2,'KETQUA.TXT'); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
write(f2,a+b);
end;
close(f1); close(f2);
end.
uses crt;
var f,g:text;
a:array[1..1000] of integer;
n,i:byte;
s:integer;
Begin
write('Nhap so cac so can doc: '); readln(n);
assign(f,'input.txt');
reset(f);
assign(g,'ketqua.txt');
rewrite(g);
s:=0;
for i:=1 to n do
readln(f,a[i]);
for i:=1 to n do
s:=s+a[i];
write(g,'Tong:',s);
close(f);
close(g);
readln;
End.
Câu hỏi trong lớp
Xem thêm
