用Fortran语言编写:给定一个数N，判断是否能同时被3和 5整除。

程序如下：

program is_divisible_by_3_and_5
implicit none
integer :: N

write(*,"('Enter an integer: ')", advance="no")
read(*,*) N

if (mod(N,3)==0 .and. mod(N,5)==0) then
write(*,"('The number ',I0,' is divisible by both 3 and 5.')") N
else
write(*,"('The number ',I0,' is not divisible by both 3 and 5.')") N
end if

end program is_divisible_by_3_and_5

相关问题

用fortran语言编写：输入某一年年份year，判断它是否为闰年（Leap）。判断依据为：（1）year能被4整除，但又不能被100整除的年份都是闰年；（2）year能被100整除，且能被400整除的年份是闰年。

以下是用Fortran语言编写的程序，可以判断输入的年份是否为闰年：

program leap_year
  implicit none
  integer :: year, flag

  write(*,*) "请输入一个年份："
  read(*,*) year

  flag = 0

  if (mod(year, 4) == 0) then
    flag = 1
    if (mod(year, 100) == 0) then
      flag = 0
      if (mod(year, 400) == 0) then
        flag = 1
      endif
    endif
  endif

  if (flag == 1) then
    write(*,*) year, "是闰年"
  else
    write(*,*) year, "不是闰年"
  endif

end program leap_year

在程序中，首先通过 `read` 语句获取用户输入的年份值，并将其存储在整型变量 `year` 中。然后，通过 `mod` 函数判断该年份是否能被4整除，如果可以，则将标志变量 `flag` 的值设为1。接着，再判断该年份是否能被100整除，如果可以，则将 `flag` 的值设为0，但如果能同时被400整除，则将 `flag` 的值重新设为1。最后，根据 `flag` 的值输出判断结果。

用Fortran语言编写:寻找书名中有“Fortran”的书

我们可以使用Fortran中的字符串函数来查找字符串中是否包含子串，然后在书名列表中寻找带有“Fortran”的书名。

下面是一个展示如何寻找书名中包含“Fortran”的Fortran程序示例。

program find_fortran_books

  character(100):: books(5)
  character(7):: search_str = 'Fortran'
  integer:: i, count

  ! 书名列表
  books(:) = (/'Advanced Fortran Programming', 
               'Numerical Methods in Fortran', 
               'Introduction to Fortran Programming', 
               'Fortran for Scientists and Engineers', 
               'Programming in Fortran 90 and 95'/)

  ! 判断每个书名是否包含“Fortran”
  count = 0
  do i = 1, 5
     if (index(books(i), search_str) > 0) then
        count = count + 1
        write(*,*) books(i)
     end if
  end do

  ! 输出找到的书籍数量
  write(*,*) 'Total number of books with Fortran in title:', count

end program find_fortran_books

运行该程序将输出带有“Fortran”的书名和总数。