+60
3 года назад
Информатика
5 - 9 классы
Объяснение:
Program zero;
Var x, y, y1:Integer; y2:Real;
Begin
For x:=-25 to 10 do
y1:=Sqr(x)+7*x+6;
y2:=(2*Sqr(x)-8)/(x-1);
If (y1<0) and (y2=>0) then
y:=Sqr(x)+7*x+6;
Whiteln('y = ',y, 'x = ',x);
End;
Readln
End.
Поидеи так, но это не точно
Объяснение:
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.
Поидеи так, но это не точно