23 lines
531 B
Plaintext
23 lines
531 B
Plaintext
with
|
|
Ada.Text_IO,
|
|
Ada.Integer_Text_IO;
|
|
use Ada;
|
|
|
|
procedure fizz_buzz is
|
|
begin
|
|
for i in 1..100 loop
|
|
if i mod 15 = 0 then
|
|
Text_IO.Put_Line("fizz buzz");
|
|
elsif i mod 5 = 0 then
|
|
Text_IO.Put_Line("buzz");
|
|
elsif i mod 3 = 0 then
|
|
Text_IO.Put_Line("fizz");
|
|
else
|
|
Integer_Text_IO.put(i, Width => 0);
|
|
Text_IO.New_Line;
|
|
end if;
|
|
end loop;
|
|
end fizz_buzz;
|
|
|
|
-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
|