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 tro

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

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

  1. 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.

    Bình luận

Viết một bình luận