Определить суму всех чисел кратных 3 из промежутка от 100 до 1000

nastiaUA nastiaUA    3   25.06.2019 03:30    0

Ответы
Ildessova Ildessova  20.07.2020 13:10
Var sum,i:integer;
begin
for i:=100 to 1000 do
if (i mod 3=0) then sum:=sum+i;
 writeln('Сумма чисел кратных 3 равна ',sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика