anon/tests
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added fizzbuzz.f90

Browse Source
This commit is contained in:
anon
2024-03-10 15:57:35 +01:00
parent d6241d8013
commit 242871916f
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
fizzbuzz.f90 Normal file
View File

@ -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