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

Нужно проверить, что из трёх заданных сторон действительно можно составить треугольник, и затем сравнить стороны между собой. Треугольник будет равносторонним, если выполняются два условия:

1. Треугольник существует (не вырожденный):

• $a > 0$, $b > 0$, $c > 0$

• $a + b > c$

• $a + c > b$

• $b + c > a$

2. Все стороны равны:

• $a = b$ и $b = c$

Ниже программа на Паскале, которая выводит, является ли треугольник равносторонним (и дополнительно сообщает, если треугольник не существует).

pascal
Копировать код
program EquilateralTriangle;
var
  a, b, c: real;
begin
  readln(a, b, c);
  { Проверка существования треугольника }
  if (a <= 0) or (b <= 0) or (c <= 0) or
     (a + b <= c) or (a + c <= b) or (b + c <= a) then
  begin
    writeln('Треугольник не существует');
  end
  else
  begin
    { Проверка на равносторонность }
    if (a = b) and (b = c) then
      writeln('Треугольник равносторонний')
    else
      writeln('Треугольник не равносторонний');
  end;
end.