Proper divisors: Difference between revisions
Content added Content deleted
Line 4,248: | Line 4,248: | ||
=={{header|S-Basic}}== |
=={{header|S-Basic}}== |
||
<lang Basic> |
<lang Basic> |
||
$lines |
|||
$constant false = 0 |
$constant false = 0 |
||
$constant true = FFFFH |
$constant true = FFFFH |
||
Line 4,270: | Line 4,268: | ||
delta = 2 |
delta = 2 |
||
end |
end |
||
count = 1 |
if n < 2 then count = 0 else count = 1 |
||
if display then print using "#####"; 1; |
if display and (count = 1) then print using "#####"; 1; |
||
i = start |
i = start |
||
limit = n / start |
limit = n / start |
||
Line 4,315: | Line 4,313: | ||
<pre> |
<pre> |
||
Proper divisors of first 10 numbers: |
Proper divisors of first 10 numbers: |
||
1 : |
1 : |
||
2 : 1 |
2 : 1 |
||
3 : 1 |
3 : 1 |