Найти сумму чисел, кратных 3 от 1 до 100.

Question

Найти сумму чисел, кратных 3 от 1 до 100.

Answer 1

Program n1;
var S, i: integer;
begin
S:=0;
for i:=1 to 100 do
if (i mod 3 =0) then S:=S+i;
writeln(S);
end.