面试题：Fortran条件语句的中等应用

Question

编写一段Fortran代码，使用条件语句（IF - THEN - ELSE结构）判断一个整数是否为偶数。如果是偶数，输出'该数是偶数'；如果是奇数，输出'该数是奇数'。假设这个整数从键盘输入。

Answer 1

program judge_even_odd
    implicit none
    integer :: num
   ! 从键盘读取整数
    write(*,*) '请输入一个整数：'
    read(*,*) num
   ! 判断是否为偶数
    if (mod(num, 2) == 0) then
        write(*,*) '该数是偶数'
    else
        write(*,*) '该数是奇数'
    end if
end program judge_even_odd