22 lines
416 B
Text
22 lines
416 B
Text
REM Rosetta Code problem: https://rosettacode.org/wiki/Tau_number
|
|
REM by Jjuanhdez, 11/2023
|
|
|
|
REM Tau number
|
|
|
|
LET C = 0
|
|
LET N = 0
|
|
LET X = 100
|
|
LET T = 0
|
|
10 LET C = C + 1
|
|
LET T = 0
|
|
LET M = 1
|
|
20 IF C - (C / M) * M <> 0 THEN GOTO 30
|
|
LET T = T + 1
|
|
30 LET M = M + 1
|
|
IF M < C + 1 THEN GOTO 20
|
|
IF C - (C / T) * T <> 0 THEN GOTO 40
|
|
LET N = N + 1
|
|
PRINT C
|
|
40 IF N < X THEN GOTO 10
|
|
END
|
|
|