// 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) else
if max else Writeln('Треугольник тупоугольный')
end
else Writeln('Треугольник построить невозможно')
end.
Примеры
Введите через пробел стороны треугольника: 2.1 3 4
Треугольник тупоугольный
Введите через пробел стороны треугольника: 3 4 5
Треугольник прямоугольный
Введите через пробел стороны треугольника: 5.2 5.2 5.2
Треугольник остроугольный