Lập chương trình viết bằng tệp tính tổng tất cả số hạng chia hết cho 3????????????????((((5 sao liền ))

0 bình luận về “Lập chương trình viết bằng tệp tính tổng tất cả số hạng chia hết cho 3????????????????((((5 sao liền ))”

1. var   fi,fo: text;
         i,tong: integer;
   begin
        
         assign(fi,‘File.inp’);
        
         reset(fi);
        
             while not eof(fi)  do
            
                   begin
                 
                      readln(fi,i);
                     
                      If i mod 3 = 0 then tong:=tong+i;
                    
                    end;
              
          close(fi);
         
          assign(fo,‘File.out’);
         
          rewrite(fo);
         
             write(fo,tong);    

           close(fo);
             
   end.

   Bình luận

2. var f: text;

         T: longint;

         A: integer;

   Begin

        Assign(f, ‘abcd.xyz’); reset(f);

       T:=0;

       While not eof(f) do

          Begin

                Read(f, a);

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

          End;

      Write(‘tong la: ‘, t);

      Readln

   End.

   Bình luận