Odd and square numbers: Difference between revisions
Added Euler
(Added C) |
(Added Euler) |
||
Line 348:
841
961</pre>
=={{header|Euler}}==
Same algorithm as the Algol and other samples.
<br>Note formatted output is not Euler's strong point...
<syntaxhighlight lang="euler">
begin
new toNext; new oddSquare; label again;
toNext <- 0;
oddSquare <- 1;
again:
if oddSquare < 1000 then begin
if oddSquare > 99 then out oddSquare else 0;
oddSquare <- oddSquare + toNext;
toNext <- toNext + 8;
goto again
end else 0
end $
</syntaxhighlight>
{{out}}
<pre>
NUMBER 121
NUMBER 169
NUMBER 225
NUMBER 289
NUMBER 361
NUMBER 441
NUMBER 529
NUMBER 625
NUMBER 729
NUMBER 841
NUMBER 961
</pre>
=={{header|F_Sharp|F#}}==
| |||