jzoj3520 原根

3520. 【NOIP2013模拟11.7B组】原根(math) 


Description






Input


有且只有一个正整数m。


Output


以递增序依次输出模m的所有原根，每行输出一个原根。

如果不存在模m的原根，输出-1。

分析：暴力找原根即可。

代码

var
  i,j,n,s:longint;
  fl:boolean;
  k:int64;

function gcd(a,b:longint):longint;
var
  r:longint;
begin
  r:=a mod b;
  while r>0 do
    begin
      a:=b;
      b:=r;
      r:=a mod b;
    end;
  exit(b);
end;

begin
  assign(input,'math.in');reset(input);
  assign(output,'math.out');rewrite(output);
  readln(n);
  for i:=1 to n do
    if gcd(n,i)=1 then inc(s);
  if n=1 then
    begin
      writeln(1);
      halt;
    end;
  for i:=1 to n-1 do
    if gcd(n,i)=1 then
      begin
        k:=i;
        for j:=1 to s do
          begin
            if (k=1) then
              begin
                if j=s then
                  begin
                    writeln(i);
                    fl:=true;
                  end;
                break;
              end;
            k:=(k*i) mod n;
          end;
      end;
  if not fl then writeln(-1);
  close(input);close(output);
end.