Fizz Buzz in Ada

Welcome to the Fizz Buzz in Ada page! Here, you'll find the source code for this program as well as a description of how the program works.

Current Solution

with Text_IO; use Text_IO;

procedure Fizz_Buzz is
    Counter : Integer := 1;
begin
    while Counter < 101
        loop
            if Counter mod 3 = 0 and Counter mod 5 = 0 then
                Put_Line("FizzBuzz");
            elsif Counter mod 3 = 0 then
                Put_Line("Fizz");
            elsif Counter mod 5 = 0 then
                Put_Line("Buzz");
            else
                Put_Line(Integer'Image(Counter));
            end if;
            Counter := Counter + 1;
        end loop;
end Fizz_Buzz;

Fizz Buzz in Ada was written by:

• Rebecca Riffle

If you see anything you'd like to change or update, please consider contributing.

How to Implement the Solution

No 'How to Implement the Solution' section available. Please consider contributing.

How to Run the Solution

No 'How to Run the Solution' section available. Please consider contributing.