14 lines
243 B
Text
14 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;
|