Cho 1 tệp văn bản dulieu.TXT có chứa các số nguyên thực hiện đọc dữ liệu từ tệp trên rồi tính tổng của các phần tử chia hết cho 5 có trong tệp trên,gh

0 bình luận về “Cho 1 tệp văn bản dulieu.TXT có chứa các số nguyên thực hiện đọc dữ liệu từ tệp trên rồi tính tổng của các phần tử chia hết cho 5 có trong tệp trên,gh”

1. uses crt;
   var d:text; i,n,tong:longint; a:array[1..100000]of longint;
   begin
   clrscr;
      assign(d,’dulieu.txt’);reset(D);
         readln(d,n);
         for i:=1 to n do read(d,a[i]);
      close(d);
      assign(d,’ketqua.txt’);rewrite(D);
      writeln(d,’Tong cac so chia het cho 5:’);
         for i:=1 to n do
            if a[i] mod 5=0 then inc(tong,a[i]);
         writeln(d,tong);
      close(d);
   end.

   Bình luận