Viết chương trình tổng các số chia hết cho 3 Làm đàng hoàng, chính xác. Không spam,copy

0 bình luận về “Viết chương trình tổng các số chia hết cho 3 Làm đàng hoàng, chính xác. Không spam,copy”

1. program phuongt;
   uses crt;
     var A: array[1..500] of integer;
           i, n, s: integer;
   begin
          clrscr;
          write(‘Nhap n = ‘); readln(n);
          s:=0;
          for i:=1 to n do
          begin
                  write(‘A[‘, i, ‘] = ‘); readln(A[i]);
                  if A[i] mod 3 = 0 then s:=s+A[i];
          end;
          write(‘Tong = ‘, s);
          readln
   end.

   Bình luận

2. program chia_het_3;

   uses crt;

   var A:array[1..1000] of integer;

         n,i,t:integer;

   begin

         clrscr;

         write(‘Nhap so luong phan tu: ‘);  readln(n);

         t:=0;

         for i:=1 to n do

               begin

                     write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                     if A[i] mod 3=0 then t:=t+A[i];

               end;

         write(‘Tong cac so chia het cho 3 la: ‘,t);

         readln;

   end.

   Bình luận