viết chương trình tìm tổng các phần tử là số chẵn và chia hết cho 3

0 bình luận về “viết chương trình tìm tổng các phần tử là số chẵn và chia hết cho 3”

1. Program tinhtong; 

   uses crt;

   var i, SUM, N : Integer; Begin

   Clrscn

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

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

   Write ( ‘ Tong la: ‘ , SUM ) ; 

   Readln; 

   End

   Bình luận

2. program ctpt;

   uses crt;

     var A: array[1..500] of longint;

           i, S, n: integer;

   begin

          clrscr;

          write(‘Nhap n = ‘); readln(n);

          for i:=1 to n do

          begin

                   write(‘A[‘, i, ‘] = ‘); readln(A[i]);

          end;

          S:=0;

          for i:=1 to n do 

                   if (A[i] mod 2 = 0) and (A[i] mod 3 = 0) then S:=S+A[i];

          write(‘S = ‘, S);

          readln

   end.

   Bình luận