RosettaCodeData/Task/Tau-function/BASIC256/tau-function.basic
2023-07-01 13:44:08 -04:00

16 lines
253 B
Text

print "The tau functions for the first 100 positive integers are:"
print
for N = 1 to 100
if N < 3 then
T = N
else
T = 2
for A = 2 to (N+1)\2
if N mod A = 0 then T += 1
next A
end if
print " "; T;
if N mod 10 = 0 then print
next N
end