Perfect numbers: Difference between revisions
m
→{{header|S-BASIC}}
Line 3,820:
rem - exercise the function
var k, found = integer
print "Searching up to 10,000 for perfect numbers ..."▼
for k = 2 to 10000▼
if isperfect(k) then print k ▼
found = 0
begin
print k
found = found + 1
end
next k
print found; "
end
Line 3,831 ⟶ 3,838:
{{out}}
<pre>
Searching up to
6
28
496
8128
4 were found
</pre>
| |||