Цитата:
Сообщение от ann55
и еще одна
Зная значение N! (N!=1*2*...*(N-1)*N) определить значение N.
Входные данные В единственной строке находится значение N! (1 ≤ N ≤ 2000).
Выходные данные
Вывести значение натурального числа N.
|
Ну, это совсем тривиально и нисколько не интересно.
Код:
Var
i,N,P:Longint;
Begin
Write('N! = ');
Readln(N);
i:=1;
P:=1;
Repeat
Inc(i);
P:=P*i;
Until P=N;
Writeln('N = ',i);
Readln;
End.