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

Online Judge

Задачи

Авторы

Соревнования

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

DO U MIND TELLING ME WHAT'S WRONG WITH THIS?

Послано Khosrow 25 июн 2007 19:54

here is my program;
program khosrow;
var
n:longint;
begin
readln(n);
if n<0 then writeln((n*(1-n) div 2)+1)
else writeln((n*(n+1)) div 2);
end.

Re: DO U MIND TELLING ME WHAT'S WRONG WITH THIS?

Послано AlexF [USTU] 25 июн 2007 21:06

var
n:longint;
begin
readln(n);
if n<=0 then writeln((n*(1-n) div 2)+1)
else writeln((n*(n+1)) div 2);
end.

This is AC

Re: DO U MIND TELLING ME WHAT'S WRONG WITH THIS?

Послано Khosrow 27 июн 2007 22:39

thanks:D