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

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

Показать все сообщения Спрятать все сообщения

I don't believe!!
var n,i:longint;
begin
  readln(n);
  if n>=1 then writeln((n+1)*n div 2)
    else writeln((n+1)*(2-n) div 2);
end.
Oh, you are great programmer! Vladimir Yakovlev (USU) 11 май 2004 20:04
Re: Oh, you are great programmer! Victor S 11 май 2004 22:03
It is a sum of arifmetical progression!
Re: Oh, you are great programmer! chenyuxi 12 май 2004 16:35
Thank you very much!!
U are verry-verry clever person!!!
Nothing special. Everybody can see that. And I can reduce the length of prog by 1 byte(+) Maigo Akisame (maigoakisame@yahoo.com.cn) 4 ноя 2004 04:07
change n>=1 into n>0 :)
-_- kcm1700 13 июн 2005 17:16
so what,,, I did it in 3 lines.
I think one line is OK.
it is very good.