Idoneal numbers: Difference between revisions
→{{header|ALGOL 68}}: Slight simplification
(→{{header|ALGOL 68}}: tweak) |
(→{{header|ALGOL 68}}: Slight simplification) |
||
Line 104:
DO
FOR c FROM b + 1 TO n
WHILE INT
sum <= n
AND ( idoneal := sum /= n )
DO SKIP OD
|