Sum of first n cubes: Difference between revisions
add gwbasic
(add parigp) |
(add gwbasic) |
||
Line 396:
Encontrados 50 cubos.
</pre>
==={{header|GW-BASIC}}==
<lang gwbasic>10 FOR N=0 TO 49
20 C#=C#+N^3
30 PRINT C#;
40 NEXT N</lang>
{{out}}<pre> 0 1 9 36 100 225 441 784 1296 2025 3025 4356 6084 8281 11025 14400 1
8496 23409 29241 36100 44100 53361 64009 76176 90000 105625 123201 142884
164836 189225 216225 246016 278784 314721 354025 396900 443556 494209 5490
81 608400 672400 741321 815409 894916 980100 1071225 1168561 1272384 138297
6 1500625</pre>
==={{header|QBASIC}}===
| |||