*if (F(t)<R) then begin
M := t;
R := F(t)
end
end;
write(M+18)
end.

Ответить

Функция F := 2*(x*x-36)*(x*x-36)+5; представляет собой биквадратное уравнение.
На графике имеет вид


Условие

if (F(t)<R) then begin
M := t;
R := F(t)
end

находит наименьшее значение функции. При этом, т.к. в условии F(t)<R, нас интересует точка, отмеченная на графике красным.
В условии M=t, значит нас интересует значение по оси X.
Находим координату и прибавляем к ней 18.

Честно, лень расписывать, тут чистая математика.

Ответить