Tau function: Difference between revisions
add fermat
m (→{{header|Pascal}}: added a Free Pascal version) |
(add fermat) |
||
Line 447:
91 | 4 6 4 4 4 12 2 6 6 9
</pre>
=={{header|Fermat}}==
<lang>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;</lang>
{{out}}<pre>
1 2 2 3 2 4 2 4 3 4 2 6 2 4 4 5 2 6 2 6 4 4 2 8 3 4 4 6 2 8 2 6 4 4 4 9 2 4 4 8 2 8 2 6 6 4 2 10 3 6 4 6 2 8 4 8 4 4 2 12 2 4 6 7 4 8 2 6 4 8 2 12 2 4 6 6 4 8 2 10 5 4 2 12 4 4 4 8 2 12 4 6 4 4 4 12 2 6 6 9</pre>
=={{header|Forth}}==
| |||