Find square difference: Difference between revisions
Added Algol W
(Put PL/M into the correct right place) |
(Added Algol W) |
||
Line 26:
Smallest n where n^2 - (n-1)^2 is > 32000 is: 16001
Smallest n where n^2 - (n-1)^2 is > 2000000000 is: 1000000001
</pre>
=={{header|ALGOL W}}==
<lang pascal>begin % find the lowest positive n where the difference between n^2 and (n-1)^2 is > 1000 %
integer requiredDifference;
requiredDifference := 1000;
write( i_w := 1, s_w := 0,
, "Smallest n where n^2 - (n-1)^2 is > ", requiredDifference
, " is: ", ( ( requiredDifference + 1 ) div 2 ) + 1
)
end.</lang>
{{out}}
<pre>
Smallest n where n^2 - (n-1)^2 is > 1000 is: 501
</pre>
| |||