Proper divisors: Difference between revisions
→{{header|BASIC256}}
m (→{{header|Julia}}: n is not the proper divisor of itself even if it's a prime) |
Basicgames (talk | contribs) |
||
Line 1,343:
Igual que la entrada de FreeBASIC o PureBasic.
</pre>
==={{header|Craft Basic}}===
<syntaxhighlight lang="basic">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
end</syntaxhighlight>
==={{header|True BASIC}}===
| |||