Введите ответ в поле ввода

Бейсик

Паскаль

DIM K, I AS LONG

INPUT K

I = 12

WHILE I > 0 AND F(I) > K

  I = I - 1

WEND

PRINT I

FUNCTION F(N)
  IF N < 2 THEN

    F = 1

  ELSE

    F = N * F(N-1)

  END IF

END FUNCTION

var k, i : longint;

function f(n: longint) : longint;

begin

  if n<2 then

    f := 1

  else

    f := n*f(n-1)

end;

begin

  readln(k);

  i := 12;

  while (i>0) and (f(i)> k) do

    i := i-1;

  writeln(i)

end.

Си

Алгоритмический язык

#include

long f(long n) {

  if (n<2)

    return 1;

  else

    return n*f(n-1);

}

void main()

{

  long k, i;

  scanf("%ld", &k);

  i = 12;

  while (i>0 && f(i)> k) do

    i– –;

  printf("%ld", i);

}

алг

нач

  цел i, k

  ввод k

  i := 12

  нц пока i > 0 и f(i) > k

    i := i-1

  кц

  вывод i

кон

алг цел f(цел n)

нач

  если n < 2

    то

      знач := 1

    иначе

      знач := n*f(n-1)

  все

кон