20 lines
413 B
Plaintext
20 lines
413 B
Plaintext
FUNCTION amicable(nr)
|
|
LET suma = 1
|
|
FOR d = 2 TO SQR(nr)
|
|
IF REMAINDER(nr, d) = 0 THEN
|
|
LET suma = suma + d + nr / d
|
|
END IF
|
|
NEXT d
|
|
LET amicable = suma
|
|
END FUNCTION
|
|
|
|
PRINT "The pairs of amicable numbers below 20,000 are :"
|
|
PRINT
|
|
|
|
LET size = 18500
|
|
FOR n = 1 TO size
|
|
LET m = amicable(n)
|
|
IF m > n AND amicable(m) = n THEN PRINT USING "##### and #####": n, m
|
|
NEXT n
|
|
END
|