Дана функция y=3.5*x*x*x*x*x-8.2*x*x*x*x+x*x*x-12. Вычислить значения функции на промежутке [32;-16] с шагом -1 и найти количество таких значений функции,ю которые отличаются от минимального значения на заданную величину m.
Это первая часть задания :
uses crt;
Const Stepp = -1;
var x1,x2 : integer;
begin
Clrscr;
x1 := 32;
x2 := -16;
while x1 >= x2 do
begin
writeln ('When x = ',x1,' y = ',(3.5 * Sqr ( x1 ) * Sqr ( x1 ) * x1 - 8.2 * Sqr(x1) * Sqr(x1) + Sqr(x1) * x1 - 12):0:2);
x1 := X1 + Stepp;
end;
readkey;
end.
Товарищ гость 2ю часть задания сможете сами решить ?