Var n:LongInt;
Begin
  ReadLn(n);
  If n=0 then WriteLn(1) else WriteLn((abs(n+1)*(n-1)+n+1) div 2);
End.

qardas bu dusturu azi 10 defe hemin forumda veribler

But Who Cares You Simple Program?

Hey... you even know the quantity of
correct formulas on this forum... smart boy...
It means that you needed them =)

P.S. Plz speak in English - This is an international forum!

Afgan, Necesan? Ne var ne yox?
Gorurem sen de teze bashdamisan... Sual olsa yaz!

Qardas bu formulun duz deyirsen 100 cur novunu yaziblar.Men istedim daha yaxsisi olsun.Umumi olsun.Ona gore bunu yazdim.Formul + ve - ucun eynidir(duz isleyir),yalniz sifirda sehvdir.Onuda if ile gostermisem.


This formule calculate - and + correct.Only n=0 then calculate false.

Edited by author 16.02.2006 00:11

no i did not need them. I visited forum after i got AC.

ele bele. meze ucun....

Edited by author 24.01.2006 12:51

Please do not give the right source code here. It gives chance to some people to unfairly get AC. Even if it's a very simple task.

aaaah. what the hell. he's right. who cares?

Edited by author 13.03.2008 12:16

bu suali 30 deq umumi bir dustur oturub cixardim ve istedimki,buraya yazim.bu dustur yalniz 0-da sehv gosterir.Evvelce bu formulun burada olduqunu bilmirdim,sonradan gordun.Sene bu dusturun cixarilisini Bakiya derse gelende gostererem.

OK. just one last last thing.

Efqan, Mesele dusturda deyil meni sehv basa dushme.
neyse. bakiya ne vat gelirsen? gelde heftesonlari.

Vaxt olan kimi gelecem.

salam bu efgandi menem celil mene sum programina komek et.Xais edirem.Gozleyirem.saq ol.Sene ugurlar.

Ele mi?

Zatknites nah! :[