Perfect numbers: Difference between revisions

Content added Content deleted
m (→‎{{header|ALGOL 60}}: minor variable rename)
m (→‎{{header|S-BASIC}}: minor variable rename)
 
Line 4,280:
$lines
 
rem - return pn mod qm
function mod(pn, qm = integer) = integer
end = pn - qm * (pn/qm)
 
rem - return true if n is perfect, otherwise false