13 lines
243 B
Text
13 lines
243 B
Text
Func Tau(t) =
|
|
if t<3 then Return(t) else
|
|
numdiv:=2;
|
|
for q = 2 to t\2 do
|
|
if Divides(q, t) then numdiv:=numdiv+1 fi;
|
|
od;
|
|
Return(numdiv);
|
|
fi;
|
|
.;
|
|
|
|
for i = 1 to 100 do
|
|
!(Tau(i),' ');
|
|
od;
|