ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1068. Сумма

Shortest solution (Pascal)
Послано Andrew 31 июл 2013 23:35
var
    a: integer;
    b: longint;

begin
    readln(a);

    b := (a + 1) * (abs(a - 1) + 1) div 2;

    writeln(b);
end.