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 tệp

0 bình luận về “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 tệp”

1. program h247;
   var f: text;
       n, tong: integer;
   begin
     assign(f, ‘D:\baitap.txt’);
     reset(f);
     while not eof(f) do 
     begin
     read(f, n);
     tong:=tong+n;
     end;
     Write(‘Tong cac so la ‘, tong);
     readln;
   end.

   Bình luận