完全平方数
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.