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

Question

Информатика

Кулина

4 января, 19:12

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

+4

Ответы (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.