26 lines
423 B
Plaintext
26 lines
423 B
Plaintext
PROGRAM "Tau number"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
PRINT "The first 100 tau numbers are:"
|
|
|
|
n = 0
|
|
num = 0
|
|
limit = 100
|
|
DO WHILE num < limit
|
|
INC n
|
|
tau = 0
|
|
FOR m = 1 TO n
|
|
IF n MOD m = 0 THEN INC tau
|
|
NEXT m
|
|
IF n MOD tau = 0 THEN
|
|
INC num
|
|
IF num MOD 10 = 1 THEN PRINT
|
|
PRINT FORMAT$("######", n);
|
|
END IF
|
|
LOOP
|
|
END FUNCTION
|
|
END PROGRAM
|