Question

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

Answer 1

Program n1;
var a,b,c: real;
begin
readln(a,b,c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then write('существует') else write('не существует');
end.

Answer 2

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

program TriangleExistence;

var
  a, b, c: Integer;

begin
  writeln('Введите длину стороны a: ');
  readln(a);
  writeln('Введите длину стороны b: ');
  readln(b);
  writeln('Введите длину стороны c: ');
  readln(c);

if (a + b > c) and (a + c > b) and (b + c > a) then
    writeln('Треугольник существует')
  else
    writeln('Треугольник не существует');

readln;
end.

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