chap03/kadai2.f90
1program answer
2 implicit none
3
4 real(8) :: h, l
5
6 read(*, *) l, h
7
8 write(*, *) 'Area of triangle: ', h * l / 2
9
10 stop
11endprogram answer
1program answer
2 implicit none
3
4 real(8) :: h, l
5
6 read(*, *) l, h
7
8 write(*, *) 'Area of triangle: ', h * l / 2
9
10 stop
11endprogram answer