Предмет: Информатика,
автор: ImDream
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. что программка выведет?
Ответы
Автор ответа:
0
Данный код написан на Pascal-е, выводом же будет просто число 10 (прикрепляю для Вас скриншот с кодом и выводом компилятора).
Приложения:

Похожие вопросы
Предмет: Русский язык,
автор: DolgovPavel
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: lesamixel
Предмет: История,
автор: Please2help
Предмет: Алгебра,
автор: Alexwrfs