Условие задачи
Вывести на экран значения функции находящиеся в интервале (-0,4; 0,8) для x, изменяющегося на отрезке [8; -6] с шагом 1,5.
Ответ
var
xn,xk,x,h,z:real;
begin
xn:=-6;
xk:=8;
h:=1.5;
x:=xn;
while x=xk do
begin
z:=sin(x / (x - 2));
if (z-0.4)and(z0.8...