Даны три угла треугольника необходимо определить какой вид имеет треугольник...

Question

Даны три угла треугольника необходимо определить какой вид имеет треугольник прямоугольный , тупоугольный, остроугольный . Сделайте для паскаля , информатика

Answer 1

And (a > c) then            Begin               max:=a; min1:=b; min2:=c;            end          else            if (b>a) and (b>c) then            Begin               max:=b; min1:=a; min2:=c            end            else               Begin                 max:=c; min2:=a; min2:=b;               End;            if (sqr(max)=sqr(min1)+sqr(min2)) then               Writeln('Треугольник прямоугольный')            else              if (sqr(max)<sqr(min1)+sqr(min2)) then                Writeln('Треугольник остроугольный')                  else Writeln('Треугольник тупоугольный');       end    else       Writeln('Треугольник не существует');     Readln(); END.

Comments

and (a > c) then
Begin
max:=a; min1:=b; min2:=c;
end
else
if (b>a) and (b>c) then
Begin
max:=b; min1:=a; min2:=c
end
else
Begin
max:=c; min2:=a; min2:=b;
End;
if (sqr(max)=sqr(min1)+sqr(min2)) then
Writeln('Треугольник прямоугольный')
else
if (sqr(max) Writeln('Треугольник остроугольный')
else Writeln('Треугольник тупоугольный');
end
else
Writeln('Треугольник не существует');

Readln();

END.

---

Спасииибо❤️