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
1 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
