Вычислите высоту треугольника, опущенную на сторону a, по известным значениям длин его сторон a, b,c. программу для решения в паскале, пожалуйста.
Program treygolnik;
Var A, B, C: integer;
H, P: real;
Begin
Write (Введите сторону А);
Read (A);
Write (Введите сторону B);
Read (B);
Write (Введите сторону C);
Read (C);
P:= (A + B + C)/2;
H:= (2*(Sqr(P * (P - A) * (P - B) * (P - C))) / A;
Write (Длина высоты Н = , Н);
End.
Оцени ответ
