Jump to content

Abundant, deficient and perfect number classifications: Difference between revisions

m
Line 786:
 
Function SumProperDivisors(number As Integer) As Integer
If Numbernumber < 2 Then Return 0
Dim sum As Integer = 0
For i As Integer = 1 To Numbernumber \ 2
If Numbernumber Mod i = 0 Then sum += i
Next
Return sum
9,492

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.