16 lines
315 B
Text
16 lines
315 B
Text
LET n = 0
|
|
LET num = 0
|
|
LET limit = 100
|
|
DO
|
|
LET n = n + 1
|
|
LET tau = 0
|
|
FOR m = 1 TO n
|
|
IF REMAINDER(n, m) = 0 THEN LET tau = tau + 1
|
|
NEXT m
|
|
IF REMAINDER(n, tau) = 0 THEN
|
|
LET num = num + 1
|
|
IF REMAINDER(num, 10) = 1 THEN PRINT
|
|
PRINT ""; n; " ";
|
|
END IF
|
|
LOOP WHILE num < limit
|
|
END
|