Perfect numbers: Difference between revisions
Perfect numbers en BASIC256
(Perfect numbers en True BASIC) |
(Perfect numbers en BASIC256) |
||
Line 877:
END IF
END FUNCTION</lang>
==={{header|BASIC256}}===
{{trans|FreeBASIC}}
<lang BASIC256>
function isPerfect(n)
if (n < 2) or (n mod 2 = 1) then return False
#asumimos que los números impares no son perfectos
sum = 1
for i = 2 to sqr(n)
if n mod i = 0 then
sum += i
q = n \ i
if q > i then sum += q
end if
next
return n = sum
end function
print "Los primeros 5 números perfectos son:"
for i = 2 to 233550336
if isPerfect(i) then print i; " ";
next i
end
</lang>
==={{header|IS-BASIC}}===
| |||