Amicable pairs: Difference between revisions
m
→{{header|S-BASIC}}
Line 5,610:
f1 = 2
while (f1 * f1) <= n do
begin
if mod(n, f1) = 0 then
begin
|