讨论 / 第一次发题解
1qaz2wsx 2013-05-07 22:05:00
点我顶贴 收藏 删除
var st:ansistring;

s,la,f,x,i:longint;

begin

readln(st);read(s);la:=length(st);

while x<>s do begin

f:=1;

for i:=1 to la-1 do

if st[i]>st[i+1] then begin delete(st,i,1);f:=0;break;end;

if f=1 then delete(st,la,1);

inc(x);

end;

while (st[1]='0')and(length(st)>1) do delete(st,1,1);

write(st);

end.

查看更多回复
提交回复