Question

Составить решение задачи Паскаль Вводится 2 угла треугольника определить существует ли такой треугольник и если существует вывести 3 угла

Answer 1

Program abc;
var a,b,c : real;
begin
writeln('Введите стороны угла через пробел:');
readln(a,b);
if a+b<180 then
  writeln('3 угол = ',180-(a+b) ) else
  writeln('Такого треугольника не существует.')
end.

Answer 2

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

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

pascalCopy code
program TriangleAngles;

var
  angle1, angle2, angle3: real;

begin
  writeln('Введите первый угол треугольника:');
  readln(angle1);

  writeln('Введите второй угол треугольника:');
  readln(angle2);

  angle3 := 180 - angle1 - angle2;  // Сумма углов треугольника равна 180 градусов

  if (angle1 > 0) and (angle2 > 0) and (angle3 > 0) then
  begin
    writeln('Треугольник существует.');
    writeln('Третий угол треугольника равен: ', angle3:0:2, ' градусов');
  end
  else
    writeln('Треугольник не существует.');

  readln;
end.

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