fork download
copy 
  1. program grade_system
  2. real::grade
  3. read *,grade
  4. if(grade>95.0)then
  5. print *,'the grade is A.'
  6. else if(grade>86.0)then
  7. print *,'the grade is B.'
  8. else
  9. print *,'the grade is F.'
  10. end if
  11. end program
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin
copy 
65
stdout
copy 
 the grade is F.
https://ideone.com/BAsTHg
language:
Fortran (gfortran 8.3)
created:
1 day 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!