144 条题解
-
0
190235047 LV 3 @ 2008-09-18 18:17:25
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms太高兴了··· 1次AC
哈哈···自己弄了个构造法AC···
。。。。。。。。。。 -
0
qhr7263933 LV 3 @ 2008-09-17 23:21:18
20的阶乘开什么了？
QWORD？？？？
我写高精。。。 -
0
bochuan007 LV 3 @ 2008-09-11 22:58:19
var n,m,i,j,p,t:longword;
a:array[0..20] of qword;
c:array[1..20] of byte;
re:array[0..20] of boolean;begin
readln(n,m); a[0]:=1;
for i:= 1 to n do
begin
a[i]:=1;
for j:= 1 to i do
a[i]:=a[i]*j;
end;
for i:=1 to n do
begin
t:=((m-1)div a[n-i]+1)mod (n-i+1);
if t=0 then t:=n-i+1;
p:=0;
for j:=1 to n do
begin
if not re[j] then inc(p);
if p=t then break;
end;c[i]:=j;
re[j]:=true;
end;
for i:= 1 to n do write(c[i],' ');
end.
迷迷糊糊得用所谓构造法过了。。。但是，希望有大大能发下完整的推导过程，谢谢 -
0
var
i,j,k,s:longint;
a,b:array[1..20]of longint;
x:array[1..20]of boolean;
n,e,m:qword;function jie(q:qword):qword;
var
i,k:longint;
begin
jie:=1;
for i:=1 to q do
jie:=jie*i;
end;begin
fillchar(a,sizeof(a),0);
fillchar(x,sizeof(x),true);
readln(n,m);
i:=1;
e:=jie(n-i);
repeat
for k:=1 to n do
if x[k]
then if e -
0
var
n,t:longint;
m:int64;
a:array[1..20] of integer;
flag:array[1..20] of boolean;procedure search(depth:integer);
var
i:integer;
begin
if(depth>n) then
begin
inc(t);
if t=m then
begin
write(a[1]);
for i:=2 to n do write(a[i]:2);end;
exit;
end;
for i:=1 to n do
if flag[i]=false then
begin
a[depth]:=i;
flag[i]:=true;
search(depth+1);
flag[i]:=false;
end;
end;begin
readln(n,m);
t:=0;
fillchar(flag,sizeof(flag),false);
search(1);
end. -
0
thomas0726 LV 4 @ 2008-08-25 17:01:28
数据弱了....我4 6 都没出来就AC了
190235047
LV 3
@ 2008-09-18 18:17:25
