Question

Помогите срочно,пожалуйста дам много балов и дам лучший ответ и пролайкаю

Answer 1

Объяснение:

Program zero;

Var x, y, y1:Integer; y2:Real;

Begin

For x:=-25 to 10 do

Begin

y1:=Sqr(x)+7*x+6;

y2:=(2*Sqr(x)-8)/(x-1);

If (y1<0) and (y2=>0) then

Begin

y:=Sqr(x)+7*x+6;

Whiteln('y = ',y, 'x = ',x);

End;

End;

Readln

End.

Поидеи так, но это не точно