21 lines
431 B
Text
21 lines
431 B
Text
100 PROGRAM "Factors.bas"
|
|
110 FOR I=1 TO 30
|
|
120 PRINT I;"= ";FACTORS$(I)
|
|
130 NEXT
|
|
140 DEF FACTORS$(N)
|
|
150 LET F$=""
|
|
160 IF N=1 THEN
|
|
170 LET FACTORS$="1"
|
|
180 ELSE
|
|
190 LET P=2
|
|
200 DO WHILE P<=N
|
|
210 IF MOD(N,P)=0 THEN
|
|
220 LET F$=F$&STR$(P)&"*"
|
|
230 LET N=INT(N/P)
|
|
240 ELSE
|
|
250 LET P=P+1
|
|
260 END IF
|
|
270 LOOP
|
|
280 LET FACTORS$=F$(1:LEN(F$)-1)
|
|
290 END IF
|
|
300 END DEF
|