Abundant, deficient and perfect number classifications: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add VTL-2) |
|||
| Line 5,319: | Line 5,319: | ||
There are 4 perfect numbers between 1 and 20000 |
There are 4 perfect numbers between 1 and 20000 |
||
</pre> |
</pre> |
||
=={{header|VTL-2}}== |
|||
<lang VTL2>10 M=20000 |
|||
20 I=1 |
|||
30 :I)=0 |
|||
40 I=I+1 |
|||
50 #=M>I*30 |
|||
60 I=1 |
|||
70 J=I*2 |
|||
80 :J)=:J)+I |
|||
90 J=J+I |
|||
100 #=M>J*80 |
|||
110 I=I+1 |
|||
120 #=M/2>I*70 |
|||
130 D=0 |
|||
140 P=0 |
|||
150 A=0 |
|||
160 I=1 |
|||
170 #=:I)<I*230 |
|||
180 #=:I)=I*210 |
|||
190 A=A+1 |
|||
200 #=240 |
|||
210 P=P+1 |
|||
220 #=240 |
|||
230 D=D+1 |
|||
240 I=I+1 |
|||
250 #=M>I*170 |
|||
260 ?=D |
|||
270 ?=" deficient" |
|||
280 ?=P |
|||
290 ?=" perfect" |
|||
300 ?=A |
|||
310 ?=" abundant"</lang> |
|||
{{out}} |
|||
<pre>15043 deficient |
|||
4 perfect |
|||
4953 abundant</pre> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |
||