Added fizzbuzz.f90

2024-03-10 15:57:35 +01:00
parent d6241d8013
commit 242871916f
1 changed files with 14 additions and 0 deletions
--- a/fizzbuzz.f90
+++ b/fizzbuzz.f90
@ -0,0 +1,14 @@
+program FooBar
+  integer :: i
+  do i = 1, 100
+    if (MOD(i, 3) == 0 .and. MOD(i, 5) == 0) then
+      write(*,*) "FizzBuzz"
+    else if (MOD(i, 3) == 0) then
+      write(*,*) "Fizz"
+    else if (MOD(i, 5) == 0) then
+      write(*,*) "Buzz"
+    else
+      write(*,*) i
+    end if
+  end do
+end program FooBar