(№ 435) Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для k = 24?
Паскаль Python Си
var k, i : longint;
function f(n: longint): longint;
begin
if x = 1 then
f:= 1
else f:= x * f(x-1);
end;
begin
readln(k);
i := 15;
while (i>0) and (f(i)>k) do
i := i - 1;
writeln(i)
end. def f(x):
if x == 1:
return 1
else:
return x * f(x-1)
k = int(input())
i = 15
while ( i>0 and f(i)>k ):
i -= 1
print(i) #include
long f(long x) {
if (x == 1)
return 1;
else
return x * f(x-1);
}
int main()
{
long k, i;
scanf("%ld", &k);
i = 15;
while ( i>0 && f(i)>k )
i--;
printf("%ld", i);
return 0;
}