Задание:
. Задана площадь прямоугольного треугольника и один из его катетов. Составьте программу, с помощью которой определите гипотенузу и периметр этоготреугольника.
Решение:
program p1; uses crt; var S, a, b, c: real; beginwrite ('Введите площадь треугольника: '); readln (S); write ('Введите один из катетов: '); readln (a); b: =S/ (1/2*a); c: =sqrt (a*a+b*b); writeln ('Второй катет=', b); writeln ('Гипотенуза=', c); end.
Знаете другой ответ?