请问第九届信息学奥赛提高组阅读程序第三题怎样求解？ [复制链接]

program Programg3;
  var m,n:integer; Mark :boolean;
  function test (m,N :integer):integer;
  var i,p :integer; flag :boolean;
  begin
  m := m - 1; i := 0; flag := False;
  for p:= 2*N downto (N+1) do
  begin
    i:= (i+m) mod p;
    if ( i<N ) then
    begin  test := 0; flag := True; Break;  end
  end;
  if not(flag) then test:=1;
  end;
  begin
  read(n); m := 1; Mark := False;
  repeat
  if (test (m,n) = 1) then
  begin writeln(m); break; end;
  m := m+1;
  until Mark;
  end.

还要输入一个值  n  啊

n=7

Program Programg3;
Var
  m, n: Integer;
  Mark: boolean;
Function test(m, n: Integer): Integer;
Var
  i, p: Integer;
  flag: Boolean;
Begin
  m := m - 1;
  i := 0;
  flag := False;
  For p:=2*N Downto N+1 Do Begin
    i := (i+m) Mod p;
    If i < N Then Begin
      test := 0;
      flag := True;
      Break;
    End;
  End;

  If Not flag Then test := 1;
End;

Begin
  Read(n);
  m := 1;
  Mark := False;
  Repeat
    If test(m,n) = 1 Then Begin
      Writeln(m);
      break;
    End;
    m := m+1;
  Until Mark;

End.

首先把程序用喜欢的格式抄一便，看的也清楚，一般考试的程序格式都很烂。。。
然后再看这到题，函数是一个循环模。。。只要到固定数才能出解
感觉没什么规律，慢慢模拟就好了。。。
其实。。一般模拟到一定程度就可以发现规律了。。

貌似OIfans的资料里漏了 i < N这句，郁闷。

有没有人会做?

这一题的作用是看你是否作弊
答案有一千八百多，没有数学规律
本质是下一年的约瑟夫问题进化版，只能模拟

啊？怎么会这样啊？！！！你怎么能断定做出来的人是作弊的呢？