s:string;
i,len,j,n:longint;
begin
readln(s);
readln(n);
len:=length(s);
for i:=1 to n do
j:=1;
while (s[j]<s[j+1]) and (j<length(s)) do inc(j);
delete(s,j,1);
end;
writeln(s);
end.
快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号 Processed in 0.0050 Second(s) Copyright (C) RQNOJ 2007-2019. All Rights Reserved.