: Cho tệp văn bản MANG.TXT gồm nhiều dòng, mỗi dòng lưu trữ một số nguyên. Hãy viết chương trình đọc dữ liệu từ tệp và tính tổng các số nguyên có trong tệp MANG.TXT và hiển thị kết quả ra màng hình
2 câu trả lời
var f: text;
a: integer;
S: longint;
Begin
Assign(f, 'mang.txt'); reset(f);
S:=0;
While not eof(f) do
Begin
Readln(f, a);
S:=s+a;
End;
Write('tong: ', s);
Readln
End.
program bai_giai;
uses crt;
var f:text;
n,t:longint;
begin
clrscr;
Assign(f,'MANG.TXT'); reset(f);
t:=0;
while not eof(f) do
begin
readln(f,n);
t:=t+n;
end;
write(t);
close(f); readln;
end.
