讨论 / 这样为啥不对?各位神牛帮我看一下!!
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.

查看更多回复
提交回复