Jump to content

Perfect numbers: Difference between revisions

m
→‎{{header|S-BASIC}}: minor variable rename
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
19

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.