Odd and square numbers: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Haskell) |
Not a robot (talk | contribs) (Add Modula-2) |
||
| Line 341: | Line 341: | ||
{121,169,225,289,361,441,529,625,729,841,961} |
{121,169,225,289,361,441,529,625,729,841,961} |
||
</pre> |
</pre> |
||
=={{header|Modula-2}}== |
|||
<lang modula2>MODULE OddSquare; |
|||
FROM InOut IMPORT WriteCard, WriteLn; |
|||
VAR n, square: CARDINAL; |
|||
BEGIN |
|||
n := 10; |
|||
LOOP |
|||
square := n * n; |
|||
IF square > 1000 THEN EXIT END; |
|||
IF square MOD 2 = 1 THEN |
|||
WriteCard(square, 3); |
|||
WriteLn |
|||
END; |
|||
n := n + 1 |
|||
END |
|||
END OddSquare.</lang> |
|||
{{out}} |
|||
<pre>121 |
|||
169 |
|||
225 |
|||
289 |
|||
361 |
|||
441 |
|||
529 |
|||
625 |
|||
729 |
|||
841 |
|||
961</pre> |
|||
=={{header|Objeck}}== |
=={{header|Objeck}}== |
||