fork download
copy 
  1.        read(*,*)i,k
  2. 3      if(i.ge.k) then
  3.        go to 1
  4.        else 
  5.        go to 2
  6.        endif
  7.  
  8. 1      b=mod(i,2)
  9.        if(b.eq.0) then 
  10.        write(*,*)'Even no.',i
  11.        i=i-1
  12.        go to 3
  13.        else
  14.        write(*,*)'Odd no.',i
  15.        i=i-1
  16.        go to 3
  17.        endif
  18.  2     stop 
  19.        end
  20.  
Success #stdin #stdout 0s 5508KB
comments (?)
stdin
copy 
50
40
stdout
copy 
 Even no.          50
 Odd no.          49
 Even no.          48
 Odd no.          47
 Even no.          46
 Odd no.          45
 Even no.          44
 Odd no.          43
 Even no.          42
 Odd no.          41
 Even no.          40
https://ideone.com/L1J5wr
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!