написать программку вычисления f(x)в согласовании с ее областью определения на любом

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var F: (real,real) -gt; real :=

     (a, x) -gt; Sqrt(x / a + a / x) + Ln(Sin(x) / Cos(2 * x));

 var (a, x) := ReadReal2('Введите a, x:');

 f(a, x).Println

end.

Образцы

Введите a, x: 3.5 0.24

2.51096182288121

Введите a, x: 5 2

NaN - при невозможности вычислить функцию

// C++

include lt;iostreamgt;

include lt;cmathgt;

int main()

double x, a;

std::cin gt;gt; x gt;gt; a;

double f = std::sqrt(x / a + a / x) + std::log(std::sin(x) / std::cos(2 * x));

std::cout lt;lt; f lt;lt; std::endl;

return 0;