ENG
RUS
Timus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум
Обсуждение задачи
1068
. Сумма
Показать все сообщения
Спрятать все сообщения
Помогите пожалуйста, разве это неверное решение (PascalABC)
Ahmet
19 окт 2023 22:38
var N: integer;
begin
readln(n);
if (abs(n)>10000) then writeln('Îøèáêà ââîäà') else
if N>=0 then writeln(((1+n)*n)/2)
else writeln(((1+n)*(abs(n)+2))/2);
end.
© 2000–2026
Timus Online Judge Team
. Все права защищены.