Integer sequence: Difference between revisions
→{{header|Ada}}: add second alternative
m (→{{header|Ada}}: adjust start value) |
(→{{header|Ada}}: add second alternative) |
||
Line 11:
end loop;
end Integers;</lang>
alternative (iterating through all values of Positive (positive part of Integer) without endless loop):
<lang Ada>with Ada.Text_IO;
procedure Positives is
begin
for Value in Positive'Range loop
Ada.Text_IO.Put_Line (Positive'Image (Value));
end loop;
end Positives;</lang>
=={{header|BASIC}}==
|