Question

Помогите с ДЗ по информатике 7 задание.Это паскаль

Answer 1

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

begin
  var eps:=1e-6; // точность сравнения угла с прямым
  var (a,b,c):=ReadReal3('Введите через пробел стороны треугольника:');
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    // Находим два угла из теоремы косинусов
    // с^2 = a^2+b^2-2*a*b*cos(C)
    var aC:=ArcCos((a*a+b*b-c*c)/(2*a*b)); // в радианах
    var aB:=ArcCos((a*a+c*c-b*b)/(2*a*c)); // в радианах
    var aA:=Pi-aB-aC; // третий угол
    var max:=Max(aA,Max(aB,aC)); // максимальный из углов
    var d:=Pi/2; // прямой угол
    if Abs(d-max)<eps then Writeln('Треугольник прямоугольный')
    else
      if max<d then Writeln('Треугольник остроугольный')
      else Writeln('Треугольник тупоугольный')
    end
  else Writeln('Треугольник построить невозможно')
end.

Примеры
Введите через пробел стороны треугольника: 2.1 3 4
Треугольник тупоугольный

Введите через пробел стороны треугольника: 3 4 5
Треугольник прямоугольный

Введите через пробел стороны треугольника: 5.2 5.2 5.2
Треугольник остроугольный