var s:string; i,j,n:longint; begin readln(s); readln(n); while n>0 do begin i:=1; while(i<length(s))and(s[i+1]>=s[i]) do inc(i); delete(s,i,1); dec(n); end; while(length(s)>=1)and(s[1]='0') do delete(s,1,1); writeln(s); end.
var s:string; i,j,n:longint; begin readln(s); readln(n); while n>0 do begin i:=1; while(i<length(s))and(s[i+1]>=s[i]) do inc(i); delete(s,i,1); dec(n); end; while(length(s)>=1)and(s[1]='0') do delete(s,1,1); writeln(s); end.
转载于:https://www.cnblogs.com/qilinart/articles/4977801.html