Помогите срочно,пожалуйста дам много балов и дам лучший ответ и пролайкаю
Ответ
5
(1 оценка)
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.
Поидеи так, но это не точно