2 câu trả lời
uses crt;
var i,tong:longint;
begin
clrscr;
tong:=0;
for i:=0 to 40 do
if i mod 4=0 then tong:=tong+i;
writeln(tong);
readln;
end.
Program qtruong;
Uses crt;
Var i:integer; s:longint;
Begin
Clrscr;
s:=0;
For i:=0 to 40 do if i mod 40 = 0 then s:=s+i;
writeln('Tong cac phan tu chia het cho 4 be hon 41 la: ',s);
readln
end.
