Question

С клавиатуры вводятся три числа (длины сторон треугольника). Определить, можно ли построить треугольник по введённым сторонам. Программа Паскаль

Answer 1

Var a,b,c:integer;
begin
  read(a);
  read(b);
  read(c);
      if (a+b>c) and (a+c>b) and (c+b>a) then
          writeln('Да')
      else
          writeln('Нет');
  readln;
end;

Answer 2

Для определения, можно ли построить треугольник по введенным сторонам, можно использовать следующий алгоритм на языке Pascal:

program TriangleCheck;
var
  a, b, c: integer;
begin
  writeln('Введите длины сторон треугольника:');
  readln(a, b, c);
  
  if (a + b > c) and (a + c > b) and (b + c > a) then
    writeln('Треугольник можно построить')
  else
    writeln('Треугольник нельзя построить');
end.

В этом коде мы считываем с клавиатуры три числа, которые представляют длины сторон треугольника. Затем мы проверяем условие, что сумма двух сторон треугольника должна быть больше третьей стороны. Если это условие выполняется для всех трех пар сторон, то выводим сообщение "Треугольник можно построить". В противном случае выводим сообщение "Треугольник нельзя построить".

Примечание: Пожалуйста, обратите внимание, что язык Pascal не является поддерживаемым языком в рамках данной платформы. Однако, предоставленный код может быть использован в среде разработки Pascal для проверки возможности построения треугольника по заданным сторонам.

Источник: