Логическая функция f задаётся выражением: (x /\ y /\ z) \/ (x /\ ¬z на рисунке фрагмент таблицы истинности функции f, содержащий все наборы аргументов, при которых функция f истинна. определите, какому столбцу таблицы истинности функции f соответствует каждая из переменных x, y, z. в ответе напишите буквы x, y, z в том порядке, в котором идут соответствующие им столбцы (сначала – буква, соответствующая первому столбцу, затем – буква, соответствующая второму столбцу, и т. буквы в ответе пишите подряд, никаких разделителей между буквами ставить не нужно.

Получается так: у тебя x всегда должен давать положительное значение, дабы обнулять инверсию. И тогда при таком раскладе получается, что ответ yzx.

Прежде всего - формулы. Пусть а - длина стороны, тогда


var
  a, r, rr, h, s: real;

begin
  Write('Введите длину стороны треугольника: ');Readln(a);
  r := sqrt(3) * a / 6;
  rr := 2 * r;
  h := 3 * r;
  s := a * h / 2;
  Writeln('Радиус вписанной окружности ', r);
  Writeln('Радиус описанной окружности ', rr);
  Writeln('Высота треугольника ', h);
  Writeln('Площадь треугольника ', s);
end.

Тестовое решение:
Введите длину стороны треугольника: 10
Радиус вписанной окружности 2.88675134594813
Радиус описанной окружности 5.77350269189626
Высота треугольника 8.66025403784439
Площадь треугольника 43.3012701892219

Program triangle;
label undf;
var side, h, S, Ro, Rv: real;
begin
undf: writeln('Введите сторону треугольника:');
readln( side );

h := sqrt( sqr( side ) - ( sqr( side ) / 4) ); // расчет высоты
S := ( ( 1 * side) / 2 ) * h; // расчет площади
Rv := ( side / 2 ) * sqrt( ( 2 * side - side ) / ( 2 * side + side ) ); // расчет вписанной окружности
Ro := ( sqr( side ) / sqrt( sqr( 2 * side) - sqr( side ) ) ); // расчет описанной окружности

// вывод данных
writeln('Высота: ', h);
writeln('Площадь: ', S);
writeln('Радиус вписанной окружности: ', Rv);
writeln('Радиус описанной окружности: ', Ro);

end.