比赛 HAOI2009 模拟试题4 评测结果 AAAAAAAAAA
题目名称 排序集合 最终得分 100
用户昵称 ceeji 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-04-24 11:10:02
显示代码纯文本
//By Ceeji
//Date: 2009-4-24
//Type: Ditui
//Resource: Shiyan HAOI test 4 - Problem 1 : Sort;
Program sort;
Const
   fin='sort.in';
   fou='sort.out';
   maxn=31;
Var
   dt:array[0..maxn] of longint;
   m,n,i,j,k,p,q:longint;
Procedure init;
begin
   assign(input,fin);  reset(input);
   assign(output,fou); rewrite(output);
end;
begin
   init;
   readln(n,k);
   dt[0]:=1; dt[n]:=1;
   for i:=n-1 downto 1 do 
      dt[i]:=dt[i+1]*2;
   p:=0; q:=1;
   close(input);
   repeat
      while (p<=n) and (k>dt[p]) do
      begin
         dec(k,dt[p]); inc(p);
      end;
      if q<>1 then write(' ');
      inc(q);  write(p); dt[p]:=1;
   until k<2;
   if i=0 then writeln(0)
          else writeln;
   close(output);
end.