var
  f,s,w,t,n,i,j,code:integer;
  a:array[1..65]of boolean;
  b:array[1..64,1..15]of char;
  c:array[1..15]of integer;
  sb,s1:string;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(sb);
    c[i]:=length(sb);
    for j:=1 to c[i] do b[i,j]:=sb[j];
  end;
  readln(sb);
  t:=pos(',',sb);
  s1:=copy(sb,1,t-1);
  val(s1,w,code);
  delete(sb,1,t);
  val(sb,s,code);
  for i:=1 to n do a[i]:=false;
  f:=0; t:=w-1; j:=0;
  repeat
    inc(t);
    if t=n+1 then t:=1;
    if a[t]=false then inc(j);
    if j=s then
    begin
      j:=0;
      inc(f);
      for i:=1 to c[t] do write(b[t,i]);
      writeln;
      a[t]:=true;
    end;
  until f=n;
end.

• So easy (694) 18026318517 2013-12-19 13:15:52
• Re:So easy步步高点读机 (766) yygy 2013-12-20 00:00:31