Question

напишите программу, которая требует найти сумму всех целых чисел от 100 до 200, кратных 8. Используя оператор for.

Answer 1

Ответ:

• begin
• var sum := 0;
• for var i := 100 to 200 do
• if i mod 8 = 0 then sum += i;
• write(sum)
• end.

Пример работы: