Amicable pairs: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) Add Draco |
Amicable pairs en BASIC256 |
||
Line 930: | Line 930: | ||
17296 18416 |
17296 18416 |
||
</pre> |
</pre> |
||
=={{header|BASIC256}}== |
|||
{{trans|FreeBASIC}} |
|||
<lang BASIC256>function SumProperDivisors(number) |
|||
if number < 2 then return 0 |
|||
sum = 0 |
|||
for i = 1 to number \ 2 |
|||
if number mod i = 0 then sum += i |
|||
next i |
|||
return sum |
|||
end function |
|||
dim sum(20000) |
|||
for n = 1 to 19999 |
|||
sum[n] = SumProperDivisors(n) |
|||
next n |
|||
print "The pairs of amicable numbers below 20,000 are :" |
|||
print |
|||
for n = 1 to 19998 |
|||
f = sum[n] |
|||
if f <= n or f < 1 or f > 19999 then continue for |
|||
if f = sum[n] and n = sum[f] then |
|||
print rjust(string(n), 5); " and "; sum[n] |
|||
end if |
|||
next n |
|||
end</lang> |
|||
{{out}} |
|||
<pre>The pairs of amicable numbers below 20,000 are : |
|||
220 and 284 |
|||
1184 and 1210 |
|||
2620 and 2924 |
|||
5020 and 5564 |
|||
6232 and 6368 |
|||
10744 and 10856 |
|||
12285 and 14595 |
|||
17296 and 18416</pre> |
|||
=={{header|BCPL}}== |
=={{header|BCPL}}== |