18 lines
238 B
Text
18 lines
238 B
Text
program evenodd
|
|
|
|
integer a
|
|
|
|
write(*,101,ADVANCE="NO")
|
|
read(*,102)a
|
|
|
|
if (mod(a,2) .eq. 0) write(*,103)a
|
|
else write(*,104)a
|
|
|
|
|
|
101 format("Enter a number: ")
|
|
102 format(i7)
|
|
103 format(i7," Is Even.")
|
|
104 format(i7," Is Odd.")
|
|
|
|
|
|
end
|