7 lines
187 B
Text
7 lines
187 B
Text
10 INPUT "Enter a number or 0 to exit: ";n
|
|
20 IF n=0 THEN STOP
|
|
30 PRINT "Factors of ";n;": ";
|
|
40 FOR i=1 TO n
|
|
50 IF FN m(n,i)=0 THEN PRINT i;" ";
|
|
60 NEXT i
|
|
70 DEF FN m(a,b)=a-INT (a/b)*b
|