PersonalCorpus 版 (精华区)

2454 2002-10-11 16:04:29 BigGuava
102 .PAS Accepted 63 ms 12 kb

var i,j,k:integer;

function gcd( a,b:integer ):integer;
begin
    if b=0 then gcd:=a else gcd:=gcd(b,a mod b)
end;

begin
    readln(j);
    k:=1;
    for i:=2 to j-1 do if gcd(i,j)=1 then inc(k);
    writeln(k);
end.