Abundant odd numbers: Difference between revisions
m
→{{header|FutureBasic}}: Code indents inserted
m (→{{header|FutureBasic}}: Code indents inserted) |
|||
Line 3,041:
local fn SumOfProperDivisors( n as NSUInteger ) as NSUinteger
NSUinteger sum = 1
cln for (unsigned i = 3, j; i < sqrt(n)+1; i += 2) if (n % i == 0) sum += i + (i == (j = n / i) ? 0 : j);
end fn = sum
| |||