Обсуждение @ 1068. Сумма @ 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