Viết chương trình đọc dữ liệu từ một tệp tính tổng các số chẵn có trong tệp, xuất kết quả ra màn hình.

0 bình luận về “Viết chương trình đọc dữ liệu từ một tệp tính tổng các số chẵn có trong tệp, xuất kết quả ra màn hình.”

1. program tong_so_chan;

   uses crt;

   var f:text;

        n,t:integer;

   begin

          clrscr;

          Assign(f,’TEP.txt’);  reset(f);

          t:=0;

          while not eof(f) do

                 begin

                        read(f,n);

                        if n mod 2=0 then t:=t+n;

                 end;

          write(‘Tong cac so chan trong tep la: ‘,t);

          close(f);  readln;

   end.

   Bình luận

2. var t: longint;

         a: integer;

         f: text;

   Begin

      Assign(f, ‘input.inp’); reset(f); t:=0;

      While not eol(f) do

         Begin

           While eoln(f) do readln(f);

           Read(f, a);

           If a mod 2=0 then t:=t+a;

        End;

      Write(a);

      Readln

   End.

   Bình luận