1qaz2wsx 2013-05-07 07:05:00
点我顶贴
收藏
删除
var st:ansistring;
s,la,f,x,i:longint;
begin
readln(st);read(s);la:=length(st);
while x<>s do begin
f:=1;
for i:=1 to la-1 do
if st[i]>st[i+1] then begin delete(st,i,1);f:=0;break;end;
if f=1 then delete(st,la,1);
inc(x);
end;
while (st[1]='0')and(length(st)>1) do delete(st,1,1);
write(st);
end.