Ответ:
0.54030230586814
Программа на PascalABC.NET:
begin
var min := 1.5; // ищем для косинуса, а он не бывает больше 1
var x := 0.0; // начальное значение
while x <= 1.01 do // конечное значение плюс довесок на неточность</strong>
begin
var y := Cos(x); // значение функции в точке х
if y < min then // нашли значение меньше
min := y; // запомним его, как минимум
x += 0.1 // увеличим х на шаг
end;
Print(min) // вывели найденный минимум
end.