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

Question

Информатика

Пуся

6 июля, 02:04

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

+5

Ответы (1)

Знаете ответ на вопрос?

Венуся · Answer 1

Var sum, i:integer;

begin

sum:=0;

for i:=100 to 999 do

if (i mod 3=0) then sum:=sum+i;

writeln ('Сумма трехзначных чисел кратных трем равна ', sum) ;

end.