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

Сегодня примерно в 17:25 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

Ответ с привлечением экспертов

Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:

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

И сразу же ответим на него:

После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

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.