Anonymous user
Abundant, deficient and perfect number classifications: Difference between revisions
Abundant, deficient and perfect number classifications (view source)
Revision as of 17:10, 26 December 2014
, 9 years ago→{{header|Ruby}}
(=={{header|Racket}}== implementation added) |
|||
Line 370:
Deficient: 15043 Perfect: 4 Abundant: 4953
</pre>
=={{header|VbScript}}==
<lang VbScript>Deficient = 0
Perfect = 0
Abundant = 0
For i = 1 To 20000
sum = 0
For n = 1 To 20000
If n < i Then
If i Mod n = 0 Then
sum = sum + n
End If
End If
Next
If sum < i Then
Deficient = Deficient + 1
ElseIf sum = i Then
Perfect = Perfect + 1
ElseIf sum > i Then
Abundant = Abundant + 1
End If
Next
WScript.Echo "Deficient = " & Deficient & vbCrLf &_
"Perfect = " & Perfect & vbCrLf &_
"Abundant = " & Abundant</lang>
{{out}}
<pre>Deficient = 15043
Perfect = 4
Abundant = 4953</pre>
=={{header|zkl}}==
{{trans|D}}
| |||