Find square difference: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) |
(Ada version) |
||
Line 15: | Line 15: | ||
<pre> |
<pre> |
||
501 |
501 |
||
</pre> |
|||
=={{header|Ada}}== |
|||
<lang Ada>with Ada.Text_IO; use Ada.Text_IO; |
|||
procedure Find_Square_Difference is |
|||
Last : Natural := 0; |
|||
Square : Positive; |
|||
Diff : Positive; |
|||
begin |
|||
for N in 1 .. Positive'Last loop |
|||
Square := N ** 2; |
|||
Diff := Square - Last; |
|||
Last := Square; |
|||
if Diff > 1000 then |
|||
Put_Line (N'Image); |
|||
exit; |
|||
end if; |
|||
end loop; |
|||
end Find_Square_Difference;</lang> |
|||
{{out}} |
|||
<pre> |
|||
501 |
|||
</pre> |
</pre> |
||