16 lines
297 B
Text
16 lines
297 B
Text
include "cowgol.coh";
|
|
|
|
var i: uint8 := 1;
|
|
while i <= 100 loop
|
|
if i % 15 == 0 then
|
|
print("FizzBuzz");
|
|
elseif i % 5 == 0 then
|
|
print("Buzz");
|
|
elseif i % 3 == 0 then
|
|
print("Fizz");
|
|
else
|
|
print_i8(i);
|
|
end if;
|
|
print_nl();
|
|
i := i + 1;
|
|
end loop;
|