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.