Математические модели и физические модели что куда относится 1)S=ab2)описание простого механизма3)график движения автомобиля 4)описания движения тел​

program z1;

var i,mx:integer;

begin

mx:=1;

for i:= 1 to 20 do

begin

if 7/mx+25*sqr(mx)*mx < 7/i+25*sqr(i)*i then mx:=i;

writeln('x = ',i:2,'     y = ',7/i+25*sqr(i)*i:0:3)

end;

writeln('максимальное значение функции ',7/mx+25*sqr(mx)*mx:0:3)

end.

Объяснение:

Предполагаем что максимальное значение функция принимает в начальной точке отрезка (переменная mx)

Цикл:

берём значения из отрезка с шагом +1 и проверяем больше значение функции в этой точке, чем значение функции, вычисленной с переменной mx, если больше, то меняем значение переменной mx на текущее

выводим значение функции на экран

Выводим максимальное значение функции