1068 Timus answer/Решение задачи 1068

№1068
http://acm.timus.ru/problem.aspx?space=1&num=1068
ЖМИ ДАЛЕЕ>>>


РЕШЕНИЕ:

PASCAL

{A}
Var N:LongInt;
Begin
Read(N);
If N>=1 then Write((n*(n+1)) div 2) else Write(-((-n)*(1-n)) div 2+1)
End.

1068. Сумма

Ограничение времени: 2.0 секунды
Ограничение памяти: 16 МБ

Всё, что от вас требуется — найти сумму всех целых чисел, лежащих между 1 и N включительно.

Исходные данные

В единственной строке расположено число N, по модулю не превосходящее 10000.

Результат

Выведите целое число — ответ задачи.

Пример

исходные данные	результат
-3	-5

Источник задачи: 2000-2001 ACM Northeastern European Regional Programming Contest (test tour)