Для данного x вычислить значение функции: f(x)= {■((√(x+2 ) -5)/( x)@2x^2 +〖(x-1)〗^2/|x| ; x<1)┤+ Cosx+lnx;x≥1 Решение написать на языкеPascal.
Var x,y:real; begin writeln('Введите число:'); write(x); y = 0; if x>=1 then y:=(sqrt(x+2) - 5)/x + cos(x) + ln(x) else y:=2*x*x + (x-1)*(x-1)/abs(x); writeln('Значение функции равно', у); end.