Для данного x вычислить значение функции: f(x)= {■((√(x+2 ) -5)/( x)@2x^2 +〖(x-1)〗^2/|x| ; x<1)┤+ Cosx+lnx;x≥1 Решение написать на языке Pascal.

Предыдущий
вопрос Следующий
вопрос

var
x, result: real;
begin
write('Введите значение x: ');
readln(x);

if x < 1 then
result := (sqrt(x + 2) - 5) / x + 2 x x + power(x - 1, 2) / abs(x)
else
result := cos(x) + ln(x);

writeln('Значение функции равно ', result);
end.