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.