落汤鸡二号 2010-10-26 21:18:00
点我顶贴
收藏
删除
第257题我做不出，80分，谁能帮我？
program ex;
var
i,j,k,l,m,n,c:longint;
s:string;
begin
readln(s);
readln(n);
c:=length(s);
for i:=1 to n do
begin
k:=1;
while (k<c)and(s[k+1]>=s[k])do
k:=k+1;
delete(s,k,1);
end;
while(s[1]='0')and(length(s)>1)do
delete(s,1,1);
writeln(s);
end.