60 lines
498 B
Plaintext
60 lines
498 B
Plaintext
let m = 1
|
|
let l = 10
|
|
|
|
if l >= 1 then
|
|
|
|
for i = 1 to l
|
|
|
|
if i = 1 then
|
|
|
|
print i, " : (None)"
|
|
|
|
else
|
|
|
|
for j = 1 to int(i / 2)
|
|
|
|
if i % j = 0 then
|
|
|
|
print i, " :", j
|
|
|
|
endif
|
|
|
|
next j
|
|
|
|
endif
|
|
|
|
next i
|
|
|
|
endif
|
|
|
|
for n = 2 to 20000
|
|
|
|
let c = 0
|
|
|
|
if n >= 2 then
|
|
|
|
for i = 1 to int(n / 2)
|
|
|
|
if n % i = 0 then
|
|
|
|
let c = c + 1
|
|
|
|
endif
|
|
|
|
next i
|
|
|
|
endif
|
|
|
|
if c > x then
|
|
|
|
let x = c
|
|
let m = n
|
|
|
|
endif
|
|
|
|
wait
|
|
|
|
next n
|
|
|
|
print m, " has the most proper divisors", comma, " namely ", x
|