Detail of message

Online Judge

Problem Set

Authors

Online Contests

User

感激大牛！！贴代码！！

Posted by zyx980506 at 2010-04-17 16:58:02 on Problem 1844
In Reply To:短代码 Posted by:failed at 2009-07-15 10:56:37

感激大牛！！
var i,j,k,x,y,z,s:longint;
begin
  readln(s);
  i:=1;
  while(i*(i+1)div 2<s)or(odd(i*(i+1)div 2-s))do inc(i);
  writeln(i);
end.

Followed by:

Post your reply here: