Cho tệp dữ liệu.dat chứa 5 số nguyên dương. Hãy tính tổng số đó và đưa số đó ra màn hình

0 bình luận về “Cho tệp dữ liệu.dat chứa 5 số nguyên dương. Hãy tính tổng số đó và đưa số đó ra màn hình”

1. uses crt;
   var f:text;
       a,b,c,d,e:integer;
   begin
      clrscr;
      assign(f,’dulieu.dat’);
      reset(f);
      read(f,a,b,c,d,e);
      write(‘Tong la: ‘,a+b+c+d+e);
      close(f);
      readln
   end.

   Bình luận