编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

wa了三次了！

program ljlf;

var

s:string;

i,j,n:integer;

key:boolean;

procedure work;

begin

readln(s);

readln(n);

for i:=1 to n do

begin

key:=false;

for j:=1 to length(s)-1 do

if s[j]>s[j+1] then begin key:=true;delete(s,j,1);break;end;

if key=false then delete(s,length(s),1);

end;

while s[1]='0' do delete(s,1,1);

if s'' then writeln(s) else writeln(0);

end;

begin

work;

end.