19 lines
352 B
Plaintext
19 lines
352 B
Plaintext
PRINT "The first 100 tau numbers are:"
|
|
|
|
n = 0
|
|
num = 0
|
|
limit = 100
|
|
DO
|
|
n = n + 1
|
|
tau = 0
|
|
FOR m = 1 TO n
|
|
IF n MOD m = 0 THEN tau = tau + 1
|
|
NEXT m
|
|
IF n MOD tau = 0 THEN
|
|
num = num + 1
|
|
IF num MOD 10 = 1 THEN PRINT
|
|
PRINT USING " ####"; n; '""; n; " ";
|
|
END IF
|
|
LOOP WHILE num < limit
|
|
END
|