2015-11-18 06:14:39 +00:00
|
|
|
program FizzBuzz
|
|
|
|
|
implicit none
|
|
|
|
|
integer :: i = 1
|
2013-04-08 13:02:41 -07:00
|
|
|
|
2015-11-18 06:14:39 +00:00
|
|
|
do i = 1, 100
|
|
|
|
|
if (Mod(i,3) == 0)write(*,"(A)",advance='no') "Fizz"
|
|
|
|
|
if (Mod(i,5) == 0)write(*,"(A)",advance='no') "Buzz"
|
|
|
|
|
if (Mod(i,3) /= 0 .and. Mod(i,5) /=0 )write(*,"(I3)",advance='no') i
|
|
|
|
|
print *, ""
|
|
|
|
|
end do
|
|
|
|
|
end program FizzBuzz
|
