ac1027.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 13 行

program tju1027;
var
  n,x,p:word;
begin
  repeat
    read(n);n:=n*2+1;x:=1;p:=0;
    repeat
      x:=x*2 mod n;inc(p);
    until x=1;
    writeln(p);
  until seekeof;
end.