Amicable pairs: Difference between revisions
m
→{{header|ALGOL 60}}
Line 536:
begin
comment - return
integer procedure mod(
value
begin
mod :=
end;
Line 550:
sum := 1;
f1 := 2;
for f1 := f1 while (f1 * f1) <= n do
begin
if mod(n, f1) = 0 then
|