Question

решить задачу в Paskal

Answer 1

var
  x: real;

begin
  readln(x);
  x := sin(x) - 3 * sqr(cos(x)); //$cos^2x?$
  x := abs(x);
  x := sqrt(x);
  x := 1 / x;
  writeln('y = ', x);
end.

Answer 2

var
  x, y: real;

begin
  Write('Введите значение аргумента x: ');
  Readln(x);
  y := sqrt(abs(sin(x) + 3 * sqr(cos(x))));
  if y = 0 then Writeln('Невозможно вычислить значение функции: деление на ноль')
  else Writeln('Значение функции равно ', 1 / y:0:5)
end.

Тестовое решение:
Введите значение аргумента x: 1.53
Значение функции равно 0.99793