Обсуждение @ 1068. Сумма @ Timus Online Judge

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

вернуться в форум

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

PASCAL AC Solution 9 lines!!!!

Послано George Skhirtladze 13 апр 2010 16:40

var n,i:longint;
begin
read(n);
if n<=0 then begin
n:=n*-1;
write(((n*(n+1))div 2)*-1+1);
end
else writeln(n*(n+1)div 2);
end.

Edited by author 13.04.2010 16:42

Edited by author 13.04.2010 16:43

Your solution too big!

Послано AterLux 8 сен 2010 19:59

Use single formula, without 'if'-condition. Hint: Use Abs()