Product of divisors: Difference between revisions
Add BASIC
Not a robot (talk | contribs) (Add BASIC) |
|||
Line 207:
41 3111696 43 85184 91125 2116 47 254803968 343 125000
</pre>
=={{header|BASIC}}==
<lang basic>10 N = 50
20 DIM D(N)
30 FOR I=1 TO N: D(I)=1: NEXT
40 FOR I=2 TO N
50 FOR J=I TO N STEP I
60 D(J) = D(J)*I
70 NEXT J
80 NEXT I
90 FOR I=1 TO N: PRINT D(I),: NEXT</lang>
{{out}}
<pre> 1 2 3 8 5
36 7 64 27 100
11 1728 13 196 225
1024 17 5832 19 8000
441 484 23 331776 125
676 729 21952 29 810000
31 32768 1089 1156 1225
1.00777E+07 37 1444 1521 2.56E+06
41 3.1117E+06 43 85184 91125
2116 47 2.54804E+08 343 125000</pre>
=={{header|C}}==
| |||