PASCAL. Циклическая задача. WHILE.
Var x,fx,xmax,fmax:real; begin fmax:=-100; x:=-1; while x<=1 do begin<br> fx:=(sin(x)-sqrt(sqr(x)+7))/2; if fmax x:=x+0.1 end; Writeln('Найден максимум f(',xmax:0:1,')=',fmax:0:5) end. Результат выполнения программы Найден максимум f(1.0)=-0.99348
Спасибо!
Пожалуйста