Ответы и объяснения

2014-04-06T11:31:23+00:00
Var  x: integer;
    y:real;
begin
write('введите x: ');
readln(x);
if x<=-5 then y:=power(x,3)-1;
if (x>-5)and(x<=4)then y:=sqrt(sqr(x)-x);
if(x>4)then y:=sqr(x)-ln(abs(5*x-4));
writeln('f(x)= ',y);
end.