编译通过...

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

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

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

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

├ 测试数据 05：答案正确... 72ms

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

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

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

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

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

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：80 有效耗时：72ms

var

a:array[-5..4300000] of boolean;

s:ansistring;

s1:string;

n,m,k,i,j,l,r:longint;

begin

readln(m,k);

fillchar(a,sizeof(a),false);

a[1]:=true;

i:=1;n:=1;

s:='1';

while i0 do

begin

dec(k);

j:=1;

while (s[j]>=s[j+1]) and (j1) do delete(s,1,1);

writeln(s);

end.

rp++