Discussion @ 1209. 1, 10, 100, 1000... @ Timus Online Judge

My Very Little Code

Posted by Locomotive 19 Dec 2002 12:32

Var
k                   :extended;
n                   :word;
begin
readln(n);
repeat
    readln(k);
    write(ord(trunc(sqrt(2*(k-1)))*
             (trunc(sqrt(2*(k-1)))+1)=2*(k-1)),' ');
    dec(n);
until n=0;
end.

Re: My Very Little Code

Posted by Tang RZ 29 May 2004 11:07

(ord(trunc(sqrt(2*(k-1)))*(trunc(sqrt(2*(k-1)))+1)=2*(k-1)),' ');
How do you get this?

Discussion of Problem 1209. 1, 10, 100, 1000...