10 класс информатика ! определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 18: var i, k: integer; function f(x: integer): integer; begin f: =x*x; end; begin i : = 0; readln(k); while f(i) < k do i: =i+1; writeln(i); end. напишите в ответе число, равное количеству различных значений входной переменной k, при которых ниже программа выводит тот же ответ, что и при входном значении k=12. значение k=2 также включается в подсчёт различных значений k. var k, i : longint; function f(n: longint) : longint; begin f : = 3*n*n - 2*n; end; begin readln(k); i : = 1; while f(i) < k do i: = i+1; if f(i)-k < = f(i-1) then writeln(i) else writeln(i-1); end. напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 14. var k, i : longint; function f(n: longint): longint; begin f : = n * n * n; end; function g(n: longint): longint; begin g : = 5*n + 1; end; begin readln(k); i : = 1; while f(i) < g(k) do i : = i+1; writeln(i) end.