GIÚP MÌNH VỚI MỌI NGƯỜI ƠI !!
Cho tệp baitap.txt trên đĩa D:\ chứa các số 1 3 5 7 9. viết chương trình đọc tệp trên và tính tổng các số nguyên lưu trong Tiệp
GIÚP MÌNH VỚI MỌI NGƯỜI ƠI !!
Cho tệp baitap.txt trên đĩa D:\ chứa các số 1 3 5 7 9. viết chương trình đọc tệp trên và tính tổng các số nguyên lưu trong Tiệp
var f: text;
a,s: integer;
Begin
assign(f,’D:\baitap.txt’); reset(f);
while not eof(f) do
begin
read(f,a);
s := s+a;
end;
write(‘Tong: ‘,s);
readln;
end.