16 lines
313 B
Text
16 lines
313 B
Text
10 cls
|
|
20 printfactors(11)
|
|
30 printfactors(21)
|
|
40 printfactors(32)
|
|
50 printfactors(45)
|
|
60 printfactors(67)
|
|
70 printfactors(96)
|
|
80 end
|
|
100 sub printfactors(n)
|
|
110 if n < 1 then printfactors = 0
|
|
120 print n "=> ";
|
|
130 for i = 1 to n/2
|
|
140 if n mod i = 0 then print i " ";
|
|
150 next i
|
|
160 print n
|
|
170 end sub
|