Question

Написати програму, що за довжинами сторін трикутника визначає який він (рівнобедрений, рівносторонній чи довільний)./Написать программу, по длинам сторон треугольника определяет какой он (равнобедренный, равносторонний или произвольный).

Answer 1

Var
   a,b,c:real;
Begin
Write('Введите длины сторон треугольника: ');
ReadLn(a,b,c);
if (a<b+c)and(b<c+a)and(c<a+b) then
   Begin
   if (a=b)and(b=c) then WriteLn('Треугольник равносторонний')
   else if (a=b)or(b=c)or(c=a) then WriteLn('Треугольник равнобедренный')
        else WriteLn('Произвольный')
   End
else WriteLn('Треугольник не существует');
End.