Напишите программу которая вычисляет сумму всех четных чисел в диапазоне от 1 до n.

Question

Напишите программу которая вычисляет сумму всех четных чисел в диапазоне от 1 до n.

Answer 1

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.