随便写3.0

program main1
  implicit none
integer::score 
character::grade
write(*,*)"score="
read(*,*)score
if(score>=90.and.score<=100)then
 grade='a'
else if (score>=80.and.score<90) then
  grade='b'
else 
  grade='c'
end if
write(*,"('grade=',a5)")grade

stop
  end 

你可能感兴趣的:(fortran,c++)