int main()
{
	int i;

    for (i = 1; i <= 100; ++i)
    {
        if (i % 3 == 0 && i % 5 == 0)
        {
            printf("FizzBuzz\n");
        } else if (i % 3 == 0)
        {
            printf("Fizz\n");
        }
        else if (i % 5 == 0)
        {
            printf("Buzz\n");
        }
        else
        {
            printf("%d\n", i);
        }
    }

    return 0;
}

int main()
{
	int i;

    for (i = 1; i <= 100; ++i)
    {
        if (i % 3 == 0 && i % 5 == 0)
        {
            printf("FizzBuzz\n");
        } else if (i % 3 == 0)
        {
            printf("Fizz\n");
        }
        else if (i % 5 == 0)
        {
            printf("Buzz\n");
        }
        else
        {
            printf("%d\n", i);
        }
    }

    return 0;
}

#include <iostream>
#include <string>
#include <sstream>

using namespace std;

int main ()
{
stringstream ss;
for (int i = 1; i  < 101; i++)
{
ss.str(string ());
ss.clear ();
if (i % 3 == 0)
ss << "Fizz";
if (i%5 == 0)
ss << "Buzz";
if (ss.str() == "")
ss << i;
cout << ss.str() << endl;
}
return 0;
}

#include <iostream>
#include <string>
using namespace std;

int main()
{
 for (int x = 1; x < 101; x++)
 {
 string output;
 if (x % 3 == 0)
 {
 output += "fizz";
 }
 if (x % 5 == 0)
 {
 output += "buzz";
 }
 if (output.empty())
 {
 cout << x << endl;
 }
 else
 {
 cout << output << endl;
 }
 }
}

sub the_results{ map{$_."\n"}@_}

sub of_looking_at{
    my @List_with_Fizz_and_Buzz;

    for my $original_number (@_){
        my $new_number = Append_Fizz_if_divisible_by_three ($original_number);
        $new_number .= Append_Buzz_if_divisible_by_five ($original_number);
        $new_number = $original_number unless $new_number;
        push @List_with_Fizz_and_Buzz, $new_number
    }
    return @List_with_Fizz_and_Buzz
}

sub a_list{ (1..100) }




print the_results of_looking_at a_list;




sub Append_Fizz_if_divisible_by_three{
    return "Fizz" unless $_[0]%3;''
}

sub Append_Buzz_if_divisible_by_five{
    return "Buzz" unless $_[0]%5;''
    
}

@a=(
 sub {print "FizzBuzz\n"},
 sub {print "Buzz\n"},
 sub {print "Fizz\n"},
 sub {print "$_[0]\n"}
);

$a[   ($_%3 != 0) + (2 * ($_%5 != 0))   ]->($_) for (1..100)

# coding: utf-8

x=0

for i in range(1,101):

    x+=1
    if x%15 == 0:
        print ("FizzBuzz")
    elif x%3 == 0:
        print ("Fizz")
    elif x%5 == 0:
        print ("Buzz")
    else:
        print x

# coding: utf-8

x=0

for i in range(1,101):

    x+=1
    if x%15 == 0:
        print ("FizzBuzz")
    elif x%3 == 0:
        print ("Fizz")
    elif x%5 == 0:
        print ("Buzz")
    else:
        print x