Question

Помогите решить информатику!
Пожалуйста!
Задача №21 v2

Какое число будет напечатано в результате работы следующей

программы?

var a, b, t, M, R :integer;

function F(x:integer):integer;

begin

if x>0 then F := (x*x-6)*(x*x-6) + 6

else F := (x*x-10)*(x*x-10) + 9

end;

begin

a := -9; b := 9;

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.

Ответ:​

Answer 1

Ответ:

12

Объяснение:

не обращай внимание, пытаюсь набрать 20 символов