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