Question

Помогите решить! (см.фото)

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Var
 y,x:real;
begin
 readln(x);
 if x<=0 then
  begin
   writeln('Выход за пределы ОДЗ');
   exit;
  end;
 y:=power(x,3)-(sqr(x)-x+3)/sqrt(x);
 writeln('y=',y);
end.

Пример ввода:
1.2
Пример вывода:
y=-1.2297018105279