Anonymous user
FizzBuzz: Difference between revisions
oberon-2
(added APL) |
(oberon-2) |
||
Line 405:
)
)
=={{header|Oberon-2}}==
<pre>
MODULE FizzBuzz;
IMPORT Out;
VAR i: INTEGER;
BEGIN
FOR i := 1 TO 100 DO
IF i MOD 15 = 0 THEN
Out.String("FizzBuzz");
Out.Ln;
ELSIF i MOD 5 = 0 THEN
Out.String("Buzz");
Out.Ln;
ELSIF i MOD 3 = 0 THEN
Out.String("Fizz");
Out.Ln;
ELSE
Out.Int(i,0);
Out.Ln;
END;
END;
END FizzBuzz.
</pre>
=={{header|OCaml}}==
| |||