Sum of first n cubes: Difference between revisions
Content deleted Content added
m →{{header|QBASIC}}: changed header QBASIC -> QBasic |
Ada version |
||
Line 4: | Line 4: | ||
Find and show sum of first '''n''' cubes, where '''n < 50''' (ie show 50 entries for n=0..49) |
Find and show sum of first '''n''' cubes, where '''n < 50''' (ie show 50 entries for n=0..49) |
||
<br><br> |
<br><br> |
||
=={{header|Ada}}== |
|||
<lang Ada>with Ada.Text_Io; |
|||
procedure Sum_Of_First_N_Cubes is |
|||
Columns : constant := 10; |
|||
Width : constant := 8; |
|||
package Natural_Io is new Ada.Text_Io.Integer_Io (Natural); |
|||
use Ada.Text_Io, Natural_Io; |
|||
Sum : Natural := 0; |
|||
begin |
|||
for N in 0 .. 49 loop |
|||
Sum := Sum + N ** 3; |
|||
Put (Sum, Width => Width); |
|||
if N mod Columns = Columns - 1 then |
|||
New_Line; |
|||
end if; |
|||
end loop; |
|||
New_Line; |
|||
end Sum_Of_First_N_Cubes;</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|ALGOL 68}}== |
=={{header|ALGOL 68}}== |