Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 12? 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.

tsovinarjangiryan    3   06.10.2019 12:30    129