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

Бейсик

Паскаль

DIM K, I AS LONG

INPUT K

I = 0

WHILE F(I) < K

  I = I + 1

WEND

PRINT I

FUNCTION F(N)
  DIM I, P AS LONG

  P = 1

  I = 1

  WHILE (I <= N)

    P = P * I

    I = I + 1

  WEND

  F = P

END FUNCTION

var k, i : longint;

function f(n: longint) : longint;

var i, p : longint;

begin

  p := 1;

  i := 1;

  while (i <= n) do begin

    p := p*i;

    i := i+1

  end;

  f := p

end;

begin

  readln(k);

  i := 0;

  while (f(i)

    i := i+1;

  writeln(i)

end.

Си

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

#include

long f(long n) {

  long i, p;

  p = 1;

  i = 1;

  while (i<=n) {

    P = P*i; i++;
  }

  return p;

}

void main()

{

  long k, i;

  scanf("%ld", &k);

  i = 0;

  while (f(i)

    i++;

  printf("%ld", i);

}

алг

нач

  цел i, k

  ввод k

  i := 0

  нц пока f(i) < k

    i := i+1

  кц

  вывод i

кон

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

нач

  цел i, p

  p := 1

  i := 1

  нц пока i <= n

    p := p*i

    i := i+1

  кц

  знач := p

кон