Question

НУЖНО Delphi. Проверить, может ли быть построен какой-либо треугольник по введенным длинам сторон a,b,c (проверить неравенства треугольника: a+b>c, a+c>b, b+c>a) и вывести в окне формы соответствующее сообщение.

Answer 1

Vara,b,c:longint;beginread(a,b,c);if (a+b>c) and (a+c>b) and (c+b>a) then write('Yes')                                   else write('No');end.

Answer 2

В Delphi можно написать программу, которая проверяет, может ли быть построен треугольник по введенным длинам сторон a, b, c, и выводит соответствующее сообщение в окне формы.

Ниже приведен пример кода на Delphi, который реализует данную задачу:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c: Integer;
begin
  // Считываем значения сторон треугольника из полей ввода
  a := StrToInt(Edit1.Text);
  b := StrToInt(Edit2.Text);
  c := StrToInt(Edit3.Text);

// Проверяем неравенства треугольника
  if (a + b > c) and (a + c > b) and (b + c > a) then
    ShowMessage('Треугольник может быть построен')
  else
    ShowMessage('Треугольник не может быть построен');
end;

В данном примере используется кнопка `Button1` и три поля ввода `Edit1`, `Edit2`, `Edit3` для ввода длин сторон треугольника. При клике на кнопку происходит считывание значений из полей ввода и проверка неравенств треугольника. В зависимости от результата проверки выводится соответствующее сообщение в окне формы с помощью функции `ShowMessage`.

Не забудьте добавить необходимые компоненты (кнопку, поля ввода и т.д.) на форму перед написанием кода.