不是VIP会员,不能显示答案

题目解答

题目:
program Programg3;
var m,n:integer; Mark :boo1ean;
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.
输入:7
输出:1872
考点:
分析:
解答:
评论:
老师: