PROGRAM FIRST1 IMPICIT NONE REAL(4):: A,B,C A=5.; B=3.; C=0. A=A+2 B=(1/2)*B+C-B C=(2/3)*C+B+6.*B*C*A A=(A**2+B*C)/2.-19.5 B=B**3+C*(4/3) C=C**2-B**2 PRINT*, A,B,C END PROGRAM FIRTS1
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more