Sum of divisors: Difference between revisions
Add BASIC
Not a robot (talk | contribs) (Add BCPL) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 180:
112 168 128 144 120 252 98 171 156 217
</pre>
=={{header|BASIC}}==
<lang BASIC>10 DEFINT A-Z: DATA 100
20 READ M
30 DIM D(M)
40 FOR I=1 TO M
50 FOR J=I TO M STEP I: D(J)=D(J)+I: NEXT
60 PRINT D(I),
70 NEXT</lang>
{{out}}
<pre> 1 3 4 7 6
12 8 15 13 18
12 28 14 24 24
31 18 39 20 42
32 36 24 60 31
42 40 56 30 72
32 63 48 54 48
91 38 60 56 90
42 96 44 84 78
72 48 124 57 93
72 98 54 120 72
120 80 90 60 168
62 96 104 127 84
144 68 126 96 144
72 195 74 114 124
140 96 168 80 186
121 126 84 224 108
132 120 180 90 234
112 168 128 144 120
252 98 171 156 217</pre>
=={{header|BCPL}}==
| |||