Tính tổng chia hết cho 3 từ 15 đến 100

0 bình luận về “Tính tổng chia hết cho 3 từ 15 đến 100”

1. 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.

   Bình luận