回帖：program p1092;
var
n,i,now:longint;
m:int64;
d:array[0..21]of qword;
a:array[0..21]of integer;
begin
read(n,m);
d[0]:=1;
for i:=1 to n do d:=d*i;
for i:=1 to n do a:=i;
dec(m);
while n0 do
begin
dec(n);
now:=m div d+1;
write(a,' ');
m:=m mod d;
for i:=now to n do a:=a;
end;
end.