Составить программу для вычисления суммы четных чисел натурального ряда от 1 до 100

Question

Филипп Масленников

Информатика

13 мая, 03:53

Составить программу для вычисления суммы четных чисел натурального ряда от 1 до 100

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Макар Смирнов · Answer 1

var n: byte; / /Заводим переменную для числа.

sum: integer; / /И для суммы.

begin / /Начало.

for n : = 1 to 100 do / /Циклом проходимся по заданному диапазону.

if n mod 2 = 0 then / /Если число кратно 2.

sum : = sum + n; / /Прибавляем его к общей сумме.

writeln ('Сумма чётных чисел от 1 до 100 равна ', sum); / /Выводим сумму.

end.