ENG
RUS
Timus 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.
© 2000–2024
Timus Online Judge Team
. Все права защищены.