Даны натуральные числа a, b, c. Проверьте существует ли треугольник величины углов, которого в градусах при

положительном результате установит вид треугольника: остроугольный, тупоугольный, прямоугольный?

это в программе pascal

Могу одно сказать существует)

Var a, b, c, angA, angB, angC, cs: real;

s: string;

begin

write ('длины сторон через пробел: ') ;

readln (a, b, c) ;

if (a+b>c) and (a+c>b) and (c+b>a) then

begin

cs: = (sqr (a) + sqr (b) - sqr (c)) / (2*a*b) ;

angC:=360*ArcCos (cs) / (2*pi) ;

writeln ('угол С = ', angC:4:2) ;

cs: = (sqr (a) + sqr (c) - sqr (b)) / (2*a*c) ;

angB:=360*ArcCos (cs) / (2*pi) ;

writeln ('угол B = ', angB:4:2) ;

angA:=180-angB-angC;

writeln ('угол A = ', angA:4:2) ;

if (angA<90) and (angB<90) and (angC<90) then

s:='треугольник остроугольный';

if (angA>90) or (angB>90) or (angC>90) then

s:='треугольник тупоугольный';

if (sqr (a) + sqr (b) = sqr (c)) or (sqr (a) + sqr (c) = sqr (b)) or

(sqr (b) + sqr (c) = sqr (a)) then

s:='треугольник прямоугольный';

writeln (s) ;

end

else writeln ('треугольник составить нельзя') ;

end.