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
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
By Clara
By Clara
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
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.
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.