Используя цикл “for”, “while”, repeat” найти сумму чисел от 10 до 50 кратных 3 или 5.

Question

Используя цикл “for”, “while”, repeat” найти сумму чисел от 10 до 50 кратных 3 или 5.

Answer 1

Var i,s:integer;
begin
for i:=10 to 50 do
if (i mod 3 = 0) or (i mod 5 = 0) then s+=i;
writeln(s);
end.