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