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
2 câu trả lời
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
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.
