fork download
copy 
  1.        read(*,*)i
  2.        b=mod(i,2)
  3.        if(b.eq.0) then 
  4.        write(*,*)'Even no.',i
  5.        else
  6.        write(*,*)'Odd no.',i
  7.        endif
  8.        stop 
  9.        end
  10.  
Success #stdin #stdout 0.01s 5460KB
comments (?)
stdin
copy 
3
stdout
copy 
 Odd no.           3
https://ideone.com/Jm9kby
language:
Fortran (gfortran 8.3)
created:
1 year ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!