Integer sequence: Difference between revisions
Content deleted Content added
m →{{header|Ada}}: adjust start value |
→{{header|Ada}}: add second alternative |
||
Line 11: | Line 11: | ||
end loop; |
end loop; |
||
end Integers;</lang> |
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}}== |
=={{header|BASIC}}== |