Nhập vào n số nguyên từ bàn phím. Tính tổng các số có tổng các chữ số chia hết cho 4 trong n số vừa nhập.
Cam on a.
Nhập vào n số nguyên từ bàn phím. Tính tổng các số có tổng các chữ số chia hết cho 4 trong n số vừa nhập.
Cam on a.
program Tin_hoc;
uses crt;
var n,i,tong:integer;
a: array [1..1000000] of integer;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
writeln(‘Nhap ‘,n,’ so:’);
tong:=0;
for i:=1 to n do
begin
write(‘a[‘,i,’] = ‘);
readln(a[i]);
if a[i] mod 4 = 0 then tong:= tong + a[i]
end;
writeln(‘Tong cac chu so chia het cho 4 trong ‘,n,’ so vua nhap la: ‘,tong);
readln;
end.
var a:array[1..1000] of longint;
n,i,s:longint;
function tongchuso(n:longint):longint;
var s:longint;
begin
while n<>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
exit(s);
end;
begin
write(‘Nhap n:’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
for i:=1 to n do
if tongchuso(a[i]) mod 4=0 then
s:=s+a[i];
write(‘Tong cac so co tong chu so chia het cho 4 la:’,s);
readln;
end.