Question

Написать программу на pascal, которая определяет, существует ли треугольник со сторонами A,B,C,зная, что сумма двух сторон треугольника всегда больше третьей

Answer 1

program raf105;

var

 a,b,c: integer;

 x: boolean;

begin

 x:= True;

 write('Введите 3 числа через пробел: ');

 readln(a,b,c);

 if a+b < c

   then x:= False;

 if a+c < b

   then x:= False;

 if b+c < a

   then x:= False;

 if x

   then writeln('Треугольник существует')

   else writeln('Треугольника не существует');

end.

PascalABC 3.4.2

Answer 2

Для определения существования треугольника по длинам его сторон A, B и C, необходимо проверить выполнение неравенства треугольника: сумма любых двух сторон треугольника всегда должна быть больше третьей стороны. Вот пример программы на Pascal, которая выполняет эту проверку:

pascalCopy code
program TriangleExistence;

var
  A, B, C: real;

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('Треугольник не существует.');
end.

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