完全平方数

完全平方数

Time Limit:10000MS  Memory Limit:65536K
Total Submit:44 Accepted:42
Case Time Limit:1000MS

Description

由1～9九个数字组成的全排列可以被看作是一个九位数，编程求出这些九位数中第n个完全平方数（按九位数从小到大排序）。

Input

输入文件仅包含一个整数n，表示要求的完全平方数的序号。

Output

输出文件仅包含一个九位数。

Sample Input

6

Sample Output

254817369

Source

elba

var
i,j:longint;
s,a,k,n:longint;
function ff(x:longint):boolean;
 var i,b:longint;
     s1:string;
 begin
 str(x,s1);
 ff:=true;
 for i:=ord('1') to ord('9') do
 begin
 b:=pos(chr(i),s1);
 if b=0 then begin ff:=false; exit; end;
 end;
 end;
begin
read(n);   s:=0;
for i:=10000 to trunc(sqrt(999999999)) do
 begin
 k:=i*i;
 if ff(k) then a:=a+1;
 if a=n then begin
 write(k);  break;
 end;
 end;
end.