讨论 / AC,my 'AC'!!
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.

查看更多回复
提交回复