Question

100 балловвв
Определить, является ли треугольник со сторонами a,b,c равнобедренным.

Answer 1

===== PascalABC.NET =====

begin

 var (a, b, c) := ReadReal3('Задайте a, b, c:');

 if (a = b) or (a = c) or (b = c) then

   Print('Треугольник равнобедренный')

 else

   Print('Треугольник разносторонний')

end.