Sum of first n cubes: Difference between revisions
Ada version
m (→{{header|QBASIC}}: changed header QBASIC -> QBasic) |
(Ada version) |
||
Line 4:
Find and show sum of first '''n''' cubes, where '''n < 50''' (ie show 50 entries for n=0..49)
<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}}==
| |||