RosettaCodeData/Task/Tau-function/Yabasic/tau-function.basic

16 lines
325 B
Plaintext

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