1 câu trả lời
Uses crt;
Var i,t:integer;
BEGIN
For i:=15 to 100 if i mod 3=0 then t:=t+i;
Writeln('Tong cac so chia het cho 3 tu 15 den 100 la: ',t);
Readln
End.
Uses crt;
Var i,t:integer;
BEGIN
For i:=15 to 100 if i mod 3=0 then t:=t+i;
Writeln('Tong cac so chia het cho 3 tu 15 den 100 la: ',t);
Readln
End.
