Question

Написать програму в паскале. 1. Даны стороны треугольника а,в,с. Определить является ли это треугольником.

Answer 1

var a, b, c: integer;

begin

  writeln('Введите стороны треугольника');

  readln(a, b, c);

  if (a+b<=c)or(b+c<=a)or(a+c<=b) then writeln('Не является')

  else writeln('Является');

end.

Answer 2

Для определения, является ли треугольником, необходимо проверить выполнение неравенства треугольника. Согласно данному неравенству, сумма любых двух сторон треугольника должна быть больше третьей стороны.

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

program TriangleCheck;

var
  a, b, c: Integer; // стороны треугольника

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

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