fork download
copy 
  1. read(*,*)i
  2.        j=i-1
  3. 1      c=mod(i,j)
  4.        if(c.gt.o) then
  5.        j=j-1
  6.        go to 2
  7.        else
  8.        write(*,*)'comosite'
  9.  
  10.        endif
  11.        go to 10
  12. 2      if(j.gt.1) then
  13.        go to 1
  14.        else
  15.        write(*,*)'prime'
  16.  
  17.  
  18.        endif
  19.        go to 10
  20.  
  21. 10     write(*,*)'work done' 
  22.  
  23.        stop
  24.        end
Success #stdin #stdout 0s 5408KB
comments (?)
stdin
copy 
100
1
stdout
copy 
 comosite
 work done
https://ideone.com/mMHFnF
3
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!