拿不定主意的东东 （数学）（欧拉函数）

拿不定主意的东东(check.pas/.c/.cpp)
题目大意：给定一个数n，求出所有n的因数的和m，输出小于等于m且与m互质的个数

这是一道关于欧拉函数数学题。
对于每个数n，可以枚举i到trunc(sqrt(n))，记录因数和m
然后对于m，可以使用欧拉函数公式。。计算就好。

program df;
var i,j,n,m,x,y,z,k,t,ans:longint;
b:array[0..100000] of boolean;
function gcd(x,y:longint):longint;
begin
if y=0 then exit(x)
else gcd:=gcd(y,x mod y);
end;

function zhe(n:longint):longint; //求所有因子的和
var i,j,z:longint;
begin
j:=0;
for i:=1 to trunc(sqrt(n)) do
if n mod i=0 then
begin 
if i=trunc(sqrt(n)) then
begin
z:=n div i;
j:=j+i;
if i<>z then j:=j+z;
end
else
begin
j:=j+i;
j:=j+n div i;
end;
end;
exit(j);
end;

function che(n:longint):longint;  //欧拉函数公式求质因子个数
var i,j,m,x:longint;
begin
x:=n;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
x:=x-(x div i);
while n mod i=0 do
n:=n div i;
end;    
if n>1 then x:=x-x div n; 
exit(x);
end;

begin
assign(input,'check.in');
reset(input);
assign(output,'check.out');
rewrite(output);
readln(t);
for i:=1 to t do
begin
readln(n);
ans:=zhe(n);  //ans为所有因子之和
writeln(che(ans));
end;
close(input);
close(output);
end.