测评机： Xeost[5]

得分： 80分

提交日期： 2011-5-9 12:41:00

有效耗时： 484毫秒

测试结果1: 通过本测试点|有效耗时156ms

测试结果2: 通过本测试点|有效耗时47ms

测试结果3: 通过本测试点|有效耗时47ms

测试结果4: 测试结果错误.错误结果为:21 22 210 211 212 213 220 221 222 223 230

正确结果应为:21 22 28 82 210 211 212 213 220 221 222 223 230

测试结果5: 通过本测试点|有效耗时47ms

测试结果6: 通过本测试点|有效耗时46ms

测试结果7: 通过本测试点|有效耗时47ms

测试结果8: 通过本测试点|有效耗时47ms

测试结果9: 通过本测试点|有效耗时47ms

测试结果10: 测试结果错误.错误结果为:3 8 12 14 15 24 43 44 46 47 48 49 50 53 56 57 60 63 75 76 77 78 79 81 84 87 92 95 96 99 103 104 108 109 110 114 116 118 119 124 126 127 128 129 131 133 134 137 138 139 140 143 145

正确结果应为:3 6 12 14 15 22 24 43 44 46 47 48 49 55 56 57 60 62 63 68 75 76 77 78 79 81 84 87 88 92 94 95 96 99 102 103 104 108 109 110 114 116 118 119 124 126 127 129 131 133 134 135 137 138 139 140 141 143 145 146

var

i,j,k,l,m,n,o,t,q,u,v,l1,l2:longint;

a,b,c,d:array[1..1000000] of longint;

s,z:array[1..10000] of string;

w,p:string;

f:array[1..10000] of boolean;

begin

fillchar(f,sizeof(f),true);

readln(n);

readln(p);

m:=1;

for i:=1 to length(p) do

if p[i]=' ' then inc(m) else z[m]:=z[m]+p[i];

for i:=1 to m do

begin

val(z[i],l);a[i]:=l;

end;

for i:=1 to n do

begin

for j:=1 to m do

begin

v:=0;str(a[j],p);

for k:=1 to length(p) do

begin

val(p[k],l);

q:=1;

for u:=1 to i+1 do

q:=q*l;

inc(v,q);

end;

b[j]:=v;

end;

for l1:=1 to m do

for l2:=1 to m do

if a[l1]=b[l2] then f[l1]:=false;

end;

t:=0;

for i:=1 to m do

if f[i] then

begin

inc(t);c[t]:=a[i];

end;

for i:=1 to t-1 do

for j:=i+1 to t do

if c[i]>c[j] then

begin

q:=c[i];c[i]:=c[j];c[j]:=q;

end;

for i:=1 to t do

write(c[i],' ');

end.