Sha256: 5efeee83465d198bbd310c588e3a1000716f2585afa46b088497897a4ef282c2
Contents?: true
Size: 528 Bytes
Versions: 75
Compression:
Stored size: 528 Bytes
Contents
program bottles
implicit none
integer :: nbottles
do nbottles = 99, 1, -1
call print_bottles(nbottles)
end do
contains
subroutine print_bottles(n)
implicit none
integer, intent(in) :: n
write(*, "(I0, 1X, 'bottles of beer on the wall,')") n
write(*, "(I0, 1X, 'bottles of beer.')") n
write(*, "('Take one down, pass it around,')")
write(*, "(I0, 1X, 'bottles of beer on the wall.', /)") n - 1
end subroutine print_bottles
end program bottles
Version data entries
75 entries across 73 versions & 8 rubygems