laoluo4 2013-07-01 01:48:00
点我顶贴
收藏
删除
01.var
02.
n,i,j:longint;
03.
s:string;
04.begin
05.
readln(s);
06.
readln(n);
07.
for i:=1 to n do begin
08.
j:=1;
09.
while (s[j]<=s[j+1]) and (j<length(s)) do inc(j);
10.
delete(s,j,1);
11.
while s[1]='0' do delete(s,1,1);
12.
end;
13.
if (s=' ') then writeln(0)
14.
else writeln(s);
15.end.