Viết chương trình tính tổng các số chia hết cho 3 Mong mn giúp e với e đag gấp lắm ạ

0 bình luận về “Viết chương trình tính tổng các số chia hết cho 3 Mong mn giúp e với e đag gấp lắm ạ”

1. program tinhtong;

   uses crt;

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

         n,i:byte;

         t:longint;

   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 2=0 then t:=t+A[i];

             end;

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

        readln;

   end.

   Bình luận

2. Program tinhtong;

   uses crt;

   var i, SUM, N : integer; Begin

   Clrscr;

   Write(‘Nhap N: ‘); Readln(n);

   SUM := 0; For i:=1 to N do if (i mod 3 = 0) then SUM:= SUM + i;

   Write(‘Tong la: ‘, SUM);

   Readln;

   End.
   chúc bạn học tốt 

   đánh giá mk 5* nha

   Bình luận