Var a, b, t, M, R :longint; function F(x: longint) : longint; begin F := abs(abs(x - 5) + abs(x + 5) - 16) + 2; end; begin a := -20; b := 20; M := a; R := F(a); for t := a to b do begin if (F(t) <= R) then begin M := t; R := F(t) end end; write(M+R) end. что программка выведет?
Var a, b, t, M, R :longint; function F(x: longint) : longint; begin F := abs(abs(x - 5) + abs(x + 5) - 16) + 2; end; begin a := -20; b := 20; M := a; R := F(a); for t := a to b do begin if (F(t) <= R) then begin M := t; R := F(t) end end; write(M+R) end. что программка выведет?
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Программа выведет число 14.
В данной программе определяется функция F(x), которая возвращает результат выражения abs(abs(x - 5) + abs(x + 5) - 16) + 2.
Затем программа проходит циклом от a до b и находит значение t, для которого значение функции F(t) минимально. Вычисленное значение t и результат функции F(t) записываются в переменные M и R соответственно.
В результате на экран будет выведено значение M+R, которое равно 14.