Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 24: var i, k: integer;

function F(x:integer):longint;

begin

if x = 1 then

F:=2

else F:=x*F(x-1);

end;

begin

i := 12;

readln(K);

while (i>0) and (F(i) > K) do

i:=i-1;

writeln(i);

end

ymniy4    1   09.06.2020 20:47    13