14 lines
261 B
Text
14 lines
261 B
Text
|
LET N = 0
|
||
|
|
10 LET N = N + 1
|
||
|
|
IF N < 3 THEN GOTO 100
|
||
|
|
LET T = 2
|
||
|
|
LET A = 1
|
||
|
|
20 LET A = A + 1
|
||
|
|
IF (N/A)*A = N THEN LET T = T + 1
|
||
|
|
IF A<(N+1)/2 THEN GOTO 20
|
||
|
|
30 PRINT "Tau(",N,") = ",T
|
||
|
|
IF N<100 THEN GOTO 10
|
||
|
|
END
|
||
|
|
100 LET T = N
|
||
|
|
GOTO 30
|