Написать программу, которая вычисляет сумму всех четных чисел в диапазоне от 1 до 16

Вопрос школьника по предмету Информатика

Ответ:

Объяснение:

var

i, n, sum: integer;

begin

writeln(‘Введите n’);

readln(n);

///Тут возможны два решения, с циклом и без. Вот первое:

sum := 0;

for i := 1 to n do

if i mod 2 = 0 then

sum := sum + i;

writeln(sum);

///Второе, более быстрое, использующее формулу суммы первых членов арифметической прогрессии:

if n mod 2 = 1 then n := n — 1;

writeln(((2 + n) div 2) * n div 2);

end.