Даны катеты прямоугольного треугольника. Необходимо найти его площадь и гипотенузу.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 | program line_3; uses crt; var a, b: real; begin clrscr; writeln(‘Введите катеты прямоугольного треугольника’); write(‘a=’); read(a); write(‘b=’); read(b); writeln(‘Гипотенуза = ‘, sqrt(sqr(a)+sqr(b))); write(‘Площадь = ‘, a*b/2); readkey; end. |