Вычислить углы треугольника, зная его стороны;

program Test1;

uses Math;

var

 a, b, c, anglea, angleb, anglec: Real;

begin

 Write ('Сторона а: ');

 ReadLn(a);

 Write ('Сторона b: ');

 ReadLn(b);

 Write ('Сторона c: ');

 ReadLn(c);

 anglea := Arccos ((b * b + c * c - a * a) / (2 * b * c)) * 180 / Pi;

 angleb := Arccos ((a * a + c * c - b * b) / (2 * a * c)) * 180 / Pi;

 anglec := 180 - (anglea + angleb);

 WriteLn ('Угол а = ', anglea :5 :1);

 WriteLn ('Угол b = ', angleb :5 :1);

 WriteLn ('Угол c = ', anglec :5 :1);

 ReadLn;

end.

Объяснение:

Расчетные формулы из теоремы косинусов.

* 180 / Pi - в конце формул для перевода радиан в градусы, где Pi = 3,14 константа должна объявляться в Math, если нет напишите сами.

Третий угол рассчитывается исходя из соображения, что сумма углов треугольника равна 180 градусов.