Advertisement
zrhans

questao03.f95

May 14th, 2015
444
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program questao03
  2. implicit none
  3.  
  4. integer :: A = 2, B = 2, C = 5, D = 3, F = 3
  5. print*,'Resultado: ', A ** B * C + C / A - D ** F
  6. end program questao03
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement