Odd and square numbers: Difference between revisions
Content added Content deleted
(Added C) |
(Added Euler) |
||
Line 348: | Line 348: | ||
841 |
841 |
||
961</pre> |
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#}}== |
=={{header|F_Sharp|F#}}== |