Idoneal numbers: Difference between revisions
Content added Content deleted
(→{{header|ALGOL 68}}: tweak) |
(→{{header|ALGOL 68}}: Slight simplification) |
||
Line 104: | Line 104: | ||
DO |
DO |
||
FOR c FROM b + 1 TO n |
FOR c FROM b + 1 TO n |
||
WHILE INT |
WHILE INT sum = ab + ( c * ( b + a ) ); |
||
INT sum = ab + bc + ac; |
|||
sum <= n |
sum <= n |
||
AND count < max count |
|||
AND ( idoneal := sum /= n ) |
AND ( idoneal := sum /= n ) |
||
DO SKIP OD |
DO SKIP OD |