Numbers which are the cube roots of the product of their proper divisors: Difference between revisions
Content added Content deleted
(New post.) |
(Added Chipmunk Basic) |
||
Line 302: | Line 302: | ||
{{out}} |
{{out}} |
||
<pre>Same as FreeBASIC entry.</pre> |
<pre>Same as FreeBASIC entry.</pre> |
||
==={{header|Chipmunk Basic}}=== |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
<syntaxhighlight lang="qbasic">100 limite = 500000 |
|||
110 dim pdc(limite) |
|||
120 for i = 1 to ubound(pdc) |
|||
130 pdc(i) = 1 |
|||
140 next i |
|||
150 pdc(1) = 7 |
|||
160 for i = 2 to ubound(pdc) |
|||
170 for j = i+i to ubound(pdc) step i |
|||
180 pdc(j) = pdc(j)+1 |
|||
190 next j |
|||
200 next i |
|||
210 n5 = 500 |
|||
220 cnt = 0 |
|||
230 print "First 50 numbers which are the cube roots" |
|||
240 print "of the products of their proper divisors:" |
|||
250 for i = 1 to ubound(pdc) |
|||
260 if pdc(i) = 7 then |
|||
270 cnt = cnt+1 |
|||
280 if cnt <= 50 then |
|||
290 print using "####";i; |
|||
300 if cnt mod 10 = 0 then print |
|||
310 else |
|||
320 if cnt = n5 then |
|||
321 print |
|||
330 print using "#########";cnt; |
|||
335 print "th: "; i; |
|||
340 n5 = n5*10 |
|||
350 endif |
|||
360 endif |
|||
370 endif |
|||
380 next i |
|||
385 print |
|||
390 end</syntaxhighlight> |
|||
{{out}} |
|||
<pre>Similar to FreeBASIC entry.</pre> |
|||
==={{header|True BASIC}}=== |
==={{header|True BASIC}}=== |