Loops/While: Difference between revisions
Content added Content deleted
m (→{{header|E}}: Added code for the Euphoria language, + explanation.) |
(Added Modula-2) |
||
Line 403: | Line 403: | ||
} |
} |
||
}</lang> |
}</lang> |
||
=={{header|Modula-2}}== |
|||
<lang modula2>MODULE DivBy2; |
|||
IMPORT InOut; |
|||
VAR |
|||
i: INTEGER; |
|||
BEGIN |
|||
i := 1024; |
|||
WHILE i > 0 DO |
|||
InOut.WriteInt(i, 4); |
|||
InOut.WriteLn; |
|||
i := i DIV 2 |
|||
END |
|||
END DivBy2.</lang> |
|||
=={{header|Modula-3}}== |
=={{header|Modula-3}}== |