题解谁要？??????
var s:string;
n,t,i,j,k:longint;
begin
assign(input,'p1069.in');
assign(output,'p1069.out');
reset(input);
rewrite(output);
readln(n,k);
readln(s);
for i:=1 to k do
begin
t:=1;
for j:=2 to length(s) do
if s[j]>s[j-1] then
begin
delete(s,j-1,1);t:=2;
break;
end;
if t=1 then delete(s,length(s),1);
end;
write(s);
close(input);
close(output);
end. ( )
删除数字
jkckj
