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

Locomotive My Very Little Code [1] // Problem 1209. 1, 10, 100, 1000... 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.

Tang RZ Re: My Very Little Code // Problem 1209. 1, 10, 100, 1000... 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...