Amicable pairs: Difference between revisions

m
(Easylang)
Line 2,075:
{{trans|Lua}}
<syntaxhighlight lang="easylang">
procfunc sumdivs n . sum .
sum = 1
for d = 2 to sqrt n
Line 2,082:
.
.
return sum
.
for n = 1 to 20000
callm = sumdivs n m
if m > n
callif sumdivs m h= n
if h = n
print n & " " & m
.
2,063

edits