Amicable pairs: Difference between revisions

Content added Content deleted
(add RPL)
m (→‎{{header|ALGOL 60}}: corrected minor typo)
Line 538:
comment - return n mod m;
integer procedure mod(n, m);
value n, qm; integer n, m;
begin
mod := n - m * entier(n / m);
Retrieved from "https://rosettacode.org/wiki/Amicable_pairs"