Loops/While: Difference between revisions
Content added Content deleted
m (→{{header|E}}: Added code for the Euphoria language, + explanation.) |
(Added Modula-2) |
||
Line 403:
}
}</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}}==
|