Question

Помогите решить 3 задачу ПАСКАЛЬ

Answer 1

function myFunction(x: real):real;

begin

if (x>=-10) and (x<2) then

myFunction:=sqr(x)+4*x-7 else

if ((x<-10) and (x<>0)) or (x>=2) then

myFunction:=1/(sqr(x)+4*x-7);

end;

var x,y: real;

begin

write('Введите x: ');

readln(x);

y:=myFunction(x);

writeln('y = ',y);

end.