Анализ программы с процедурами и функциями

Напишите в ответе наибольшее значение входной переменной k, при котором программа выдаёт ответ 7. var k, i : longint; function f(n: longint): longint; begin f := n * n * n end; begin readln(k); i := 20; while f(i) > k do i := i-1; writeln(i) end.

Определите, какое число будет напечатано в результате выполнения следующего алгоритма. function f(x : integer) : integer; begin if x > 2 then f := x * x - 23 else f := x * x + 3 * x - 7 end; var t, M : integer; begin M := -5; for t := -4 to 5 do if f(t) > f(M) then M := t; writeln(5 - M) end.

Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k = 25. Значение k = 25 также включается в подсчёт количества различных значений k. var k, i : longint; function f(n: longint) : longint; begin f := n * n * n; end; begin readln(k); i := 1; while f(i) < k do i := i+1; if f(i)-k <= k-f(i-1) then writeln(i) else writeln(i-1); end.

Какое число будет напечатано в результате работы следующей программы? var a, b, t, M, R :integer; function F(x:integer):integer; begin F := 2*(x*x-50)*(x*x-50)+6 end; begin a := -11; b := 11; 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 := 2 * (x * x - 100) * (x * x - 100) + 5; 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 + 27) end.