ac1013.pas

同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料

program tju1013;
var
  s:string;
  n,m,i,j,p,q:byte;
  c:char;
begin
  repeat
    s:='';
    repeat
      read(c);
      if c=' ' then break;
      s:=s+c;
    until false;
    n:=length(s);
    readln(m);

    p:=0;
    for i:=1 to n-m do begin
      q:=p+1;
      for j:=q+1 to m+i do
        if s[j]<s[q] then q:=j;
      write(s[q]);
      p:=q;
    end;
    writeln;
  until seekeof;
end.