Помогите пж, информатика Даны 3 числа a,b,c, составить программу, определяющую,...

Question

Помогите пж, информатика
Даны 3 числа a,b,c, составить программу, определяющую, существует от треугольник со сторонами a,b,c, и если существует, то является ли он прямоугольным, тупоугольным, остроугольным

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите стороны треугольника:');
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    var alpha:=ArcCos((b*b+c*c-a*a)/(2*b*c));
    var beta:=ArcCos((a*a+c*c-b*b)/(2*a*c));
    var gamma:=Pi-alpha-beta;
    var max:=Max(Max(alpha,beta),gamma);
    var d:=max-Pi/2;
    if abs(d)<=1e-12 then Writeln('Треугольник прямоугольный')<br>    else if d<0 then Writeln('Треугольник остроугольный')<br>    else Writeln('Треугольник тупоугольный')
    end
  else Writeln('Треугольник не существует')
end.

Примеры
Введите стороны треугольника: 3.54 5.18 8.32
Треугольник тупоугольный

Введите стороны треугольника: 30 40 50
Треугольник прямоугольный