var
  k,m : longint;

function ok(m : longint) : boolean;
var i,j,n,l : longint;
begin
  ok := false;
  j := 0; n := k*2;
  for i := 1 to k do begin
    l := (j+m-1) mod n;
    if l < k then exit;
    n := n-1;
    j := l mod n;
  end;
  ok := true;
end;

begin
  readln(k);
  while(k<>0)do
  begin
  m := k+1;
  while not ok(m) do m := m+1;
  writeln(m);
  readln(k);
  end;
end.

• 数据有重复。 (0) acmost 2008-11-18 19:52:12
  • 谢拉，偶没打表过啦 (0) Ultramanhu 2008-11-19 17:43:57