Tin học Tính tổng chia hết cho 3 từ 15 đến 100 27/07/2021 By Valentina Tính tổng chia hết cho 3 từ 15 đến 100
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. 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.