liyiyuan 2010-08-05 06:04:00
点我顶贴
收藏
删除
var
s:string;
i,len,j,n:longint;
begin
readln(s);
readln(n);
len:=length(s);
for i:=1 to n do
begin
j:=1;
while (s[j]<s[j+1]) and (j<length(s)) do inc(j);
delete(s,j,1);
end;
writeln(s);
end.