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

Timus Online Judge

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

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

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

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

(Pascal) well... I don't see any mistakes ._. [nkfi]_FaZz 12 янв 2012 16:49

var N,X:integer;
begin
readln(N);
if N>0 then
X:=round((1+N)*N/2);
if N<0 then
X:=round((1+N)*(abs(N)+2)/2);
writeln(X);
end.

Re: (Pascal) well... I don't see any mistakes ._. ilya7400 17 янв 2012 22:53

попробуйте ввести 0 оно выводит 0 хотя от 0 до 1 если включительно то ответ должен быть 1

Re: (Pascal) well... I don't see any mistakes ._. Mokuji 10 дек 2012 01:10

Edited by author 10.12.2012 01:14