'Len writeln' presentation slideshows

var n,i,ans:integer; function gcd (a,b :integer) : integer; begin if a mod b=0 then gcd := b

??????. var n,i,ans:integer; function gcd (a,b :integer) : integer; begin if a mod b=0 then gcd := b else gcd := gcd (b,a mod b); end; begin readln(n); ans := 0; for i:=1 to n do if gcd(n,i)=i then ans := ans + 1; writeln(ans); end. ???120 ???_____________.

409 views • 13 slides