Определить суму всех чисел кратных 3 из промежутка от 100 до 1000
Var sum,i:integer;
begin
for i:=100 to 1000 do
if (i mod 3=0) then sum:=sum+i;
writeln(Сумма чисел кратных 3 равна ,sum);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
