Помогите срочно,пожалуйста дам много балов и дам лучший ответ и пролайкаю
Ответ
5/5 (1 оценка)
1
markalenik 5 месяцев назад
Светило науки - 7 ответов - 0 раз оказано помощи

Объяснение:

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.

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