编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：运行超时...

├ 测试数据 06：运行超时...

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：运行超时...

var n,s,k:longint;

m:int64;

a,b:array [1..100] of longint;

procedure try(k:longint);

var i,j:longint;

begin

if k>n then begin inc(s);if s>=m then

begin for j:=1 to n do begin write(a[j],' '); end;halt; end end

else

begin

for i:=1 to n do

begin

if b[i]=0 then

begin

b[i]:=1;

a[k]:=i;

try(k+1);

b[i]:=0;

a[k]:=0;

end;

end;

end;

end;

begin

readln(n,m);

fillchar(b,sizeof(b),0);

try(1);

end.