16 lines
246 B
Text
16 lines
246 B
Text
# Project : Proper divisors
|
|
|
|
limit = 10
|
|
for n=1 to limit
|
|
if n=1
|
|
see "" + 1 + " -> (None)" + nl
|
|
loop
|
|
ok
|
|
see "" + n + " -> "
|
|
for m=1 to n-1
|
|
if n%m = 0
|
|
see " " + m
|
|
ok
|
|
next
|
|
see nl
|
|
next
|