11 lines
298 B
Text
11 lines
298 B
Text
10 FOR i=1 TO 20
|
|
20 PRINT i;" = ";
|
|
30 IF i=1 THEN PRINT 1: GO TO 90
|
|
40 LET p=2: LET n=i: LET f$=""
|
|
50 IF p>n THEN GO TO 80
|
|
60 IF NOT FN m(n,p) THEN LET f$=f$+STR$ p+" x ": LET n=INT (n/p): GO TO 50
|
|
70 LET p=p+1: GO TO 50
|
|
80 PRINT f$( TO LEN f$-3)
|
|
90 NEXT i
|
|
100 STOP
|
|
110 DEF FN m(a,b)=a-INT (a/b)*b
|