Revision as of 23:56, 30 November 2021 (view source) Not a robot (talk \| contribs) (Add CLU) ← Older edit		Revision as of 17:40, 1 December 2021 (view source) Tigerofdarkness (talk \| contribs) (→‎{{header\|ALGOL 68}}: Typos) Newer edit →
Line 425: =={{header\|ALGOL 68}}== <lang algol68># ~~returns~~resturns the sum of the proper divisors of n # # if n = 1, 0 or -1, we return 0 # PROC sum proper divisors = ( INT n )INT: Line 464: FOR p2 FROM p1 + 1 TO max number DO IF is an amicable pair( p1, p2 ) THEN print( ( whole( p1, -6 ), " and ", whole( p2, -6 ), " are aan amicable pair", newline ) ) FI OD Line 470: {{out}} <pre> 220 and 284 are aan amicable pair 1184 and 1210 are aan amicable pair 2620 and 2924 are aan amicable pair 5020 and 5564 are aan amicable pair 6232 and 6368 are aan amicable pair 10744 and 10856 are aan amicable pair 12285 and 14595 are aan amicable pair 17296 and 18416 are aan amicable pair </pre>

Amicable pairs: Difference between revisions

Amicable pairs (view source)