fork(1) download
copy 
  1. program t
  2. Implicit none 
  3. Integer i,n,h
  4. Real k
  5. Read*,n
  6. K=h(n)/86400.0
  7. End program 
  8. Recursive function h(n) result(d)
  9. Integer d,n
  10. !Do i=1,n
  11. If(n==1)then
  12. d=1
  13. Else
  14. d=2*h(n-1)+1
  15. End if
  16. !End do
  17.  
  18. end function
Success #stdin #stdout 0.01s 5440KB
comments (?)
stdin
copy 
25
stdout
copy 
Standard output is empty
https://ideone.com/eJezTY
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!