Abundant, deficient and perfect number classifications: Difference between revisions
Abundant, deficient and perfect number classifications (view source)
Revision as of 16:53, 12 June 2015
, 9 years agoAdded Powershell code...
(→{{header|PicoLisp}}: simpler) |
Simple9371 (talk | contribs) (Added Powershell code...) |
||
Line 984:
</pre>
=={{header|Powershell}}==
<lang powershell>new-variable deficient -value 0
new-variable perfect -value 0
new-variable abundant -value 0
new-variable sum
for($i=1;$i -le 20000;$i++){
$sum=0
for($n=1;$n -le [System.Math]::Floor([System.Math]::Sqrt($i));$n++){
if($i%$n -eq 0){
$sum+=($i/$n)
if($i/$n -ne $n) {$sum+=$n}
}
}
$sum-=$i
if($sum -lt $i){
$deficient++
}
elseif($sum -eq $i){
$perfect++
} else {
$abundant++
}
}
Write-Host "Deficient = $deficient"
Write-Host "Perfect = $perfect"
Write-Host "Abundant = $abundant"</lang>
{{Out}}
<pre>Deficient = 15043
Perfect = 4
Abundant = 4953</pre>
=={{header|Python}}==
| |||