算法模板——单个值欧拉函数

输入N，输出phi(N)

这样的单个值欧拉函数程序一般见于部分数论题，以及有时候求逆元且取模的数不是质数的情况(逆元：A/B=A*B^phi(p)-1 (mod p)，一般常见题中p是质数，phi(p)-1=p-2)

（Tip:我是来水经验的不解释，不过话说真的好久没写这个了TT）

var i:int64;
function Eula(x:int64):int64;
         var res:int64;i:longint;
         begin
              res:=x;
              for i:=2 to trunc(sqrt(x)) do
                  begin
                       if (x mod i)=0 then
                          begin
                               res:=(res div i)*(i-1);
                               while (x mod i)=0 do x:=x div i;
                          end;
                  end;
              if x>1 then res:=(res div x)*(x-1);
              exit(res);
         end;
begin
     readln(i);writeln(Eula(i));
     readln;
end.