Question

Помогите выражение с фото записать в Паскале АВС)

Answer 1

Var x,f: real;
Begin
write('x = ');
readln(x);
if x<=-2
 then f:=sin(x+1)
 else if x<1 then f:=exp(x-1)/5
             else f:=ln(abs(exp((1/3)*ln(x+2))));
writeln('f = ',f);
End.

Пример:
x = 5
f = 0.648636716351771