Question

Решить задачу в Pascal (желательно с объяснением)

Answer 1

var

a,b,c,p, La, Lb, Lc: Real;

begin

print('Введите стороны треуголькника');

read(a,b,c);//Считываем стороны треугольника

p:= (a+b+c)/2;//Находим полупериметр

//Считаем биссектрисы по формуле

La := 2*sqrt(b*c*p*(p-a))/(b+c);

Lb := 2*sqrt(a*c*p*(p-b))/(a+c);

Lc := 2*sqrt(a*b*p*(p-c))/(a+b);

print('Биссектрисы треуголькника');

print(La,Lb,Lc);

end.