18 lines
363 B
Text
18 lines
363 B
Text
FOR i% = 1 TO 20
|
|
PRINT i% " = " FNfactors(i%)
|
|
NEXT
|
|
END
|
|
|
|
DEF FNfactors(N%)
|
|
LOCAL P%, f$
|
|
IF N% = 1 THEN = "1"
|
|
P% = 2
|
|
WHILE P% <= N%
|
|
IF (N% MOD P%) = 0 THEN
|
|
f$ += STR$(P%) + " x "
|
|
N% DIV= P%
|
|
ELSE
|
|
P% += 1
|
|
ENDIF
|
|
ENDWHILE
|
|
= LEFT$(f$, LEN(f$) - 3)
|