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

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

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

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

1068 ??? It always gave me WRONG ANSWER although when I test it I can't find the mistake

Послано Ivo 25 май 2001 04:05

Here's the source can you help me!

var i,sum1,n:longint;
begin
   readln(n);
   sum1:=0;
   if n=1 then sum1:=2
   else
     if n<=0 then
       for i:=1 downto n do sum1:=sum1+i;
     else
       for i:=1 to n do sum1:=sum1+i;
   writeln(sum1);
end.