Sum of first n cubes: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add PILOT) |
Not a robot (talk | contribs) (Add CLU) |
||
Line 611: | Line 611: | ||
672400 741321 815409 894916 980100 1071225 1168561 1272384 1382976 1500625 |
672400 741321 815409 894916 980100 1071225 1168561 1272384 1382976 1500625 |
||
</pre> |
</pre> |
||
=={{header|CLU}}== |
|||
<lang clu>start_up = proc () |
|||
amount = 50 |
|||
po: stream := stream$primary_output() |
|||
sum: int := 0 |
|||
for i: int in int$from_to(0,amount-1) do |
|||
sum := sum + i ** 3 |
|||
stream$putright(po, int$unparse(sum), 8) |
|||
if i//5 = 4 then stream$putc(po, '\n') end |
|||
end |
|||
end start_up</lang> |
|||
{{out}} |
|||
<pre> 0 1 9 36 100 |
|||
225 441 784 1296 2025 |
|||
3025 4356 6084 8281 11025 |
|||
14400 18496 23409 29241 36100 |
|||
44100 53361 64009 76176 90000 |
|||
105625 123201 142884 164836 189225 |
|||
216225 246016 278784 314721 354025 |
|||
396900 443556 494209 549081 608400 |
|||
672400 741321 815409 894916 980100 |
|||
1071225 1168561 1272384 1382976 1500625</pre> |
|||
=={{header|COBOL}}== |
=={{header|COBOL}}== |