fork download
copy 
  1. program get_pay
  2. real::hours,pay,pay_rate
  3. write(*,*)'Enter:'
  4. read *,hours,pay_rate
  5. pay=pay_rate*hours
  6. print *,"Employ's pay is:",pay
  7. end program
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
7.90
42
stdout
copy 
 Enter:
 Employ's pay is:   331.800018
https://ideone.com/QTXuwt
language:
Fortran (gfortran 8.3)
created:
6 days 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!