Задание:
Составить алгоритм, с помощью которого можно определить, является ли треугольник с заданными сторонами a,b,c равносторонним, равнобедренным илипрямоугольным
Решение:
var a, b, c: real; begin read (a, b, c); if (a=b) and (b=c) then writeln ('Равносторонний') else if (a=b) or (a=c) or (b=c) then writeln ('Равнобедренный') else if (sqr (a)+sqr (b)=sqr (c) or (sqr (b)+sqr (c)=sqr (a) or (sqr (a)+sqr (c)=sqr (b) then writeln ('Прямоугольный') else writeln ('No'); end.
Знаете другой ответ?