Anonymous user
Loops/Downward for: Difference between revisions
Added Modula-2
(→{{header|E}}: Added code for the Euphoria language,) |
(Added Modula-2) |
||
Line 312:
<lang metafont>for i = 10 downto 0: show i; endfor end</lang>
=={{header|Modula-2}}==
<lang modula2>MODULE Downward;
IMPORT InOut;
VAR
i: INTEGER;
BEGIN
FOR i := 10 TO 0 BY -1 DO
InOut.WriteInt(i, 2);
InOut.WriteLn
END
END Downward.</lang>
=={{header|Modula-3}}==
Line 317 ⟶ 331:
IO.PutInt(i);
END;</lang>
=={{header|MUMPS}}==
<lang MUMPS>LOOPDOWN
| |||