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

  • Участник Знаний
2014-03-29T15:08:07+04:00
Var y,x:real;
begin
write('Введите число x: ');
readln(x);
if x<=-1 then y:=ln(abs(x*x+1))-2
  else
    if x>0 then y:=ln(x)/(3*x*x-12*x)
      else y:=0.2*power(x,3)-x;   // без power можно так: y:=0.2*x*x*x-x;
writeln('y=',y)
end.