Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон. Если такой треугольник существует, то определите его тип(равносторонний, равнобедренный, разносторонний).

1

Ответы и объяснения

2014-01-28T18:24:10+00:00
Var a, b, c: integer;begin
     readln(a, b, c);
     if (a + b <= c) or (b + c <= a) or (a + c <= b) then
          writeln('Does not exist')
     else if(a = b)and(b = c) then
          writeln('Equilateral')
     else if(a = b)or(b = c)or(a = c) then
          writeln('Isosceles')
     else
         writeln('Versatile')
end.