var
a,k:integer;
begin
a:=3;
k := 1;
while a <= n do
begin
a := a * 3;
k:=k+1;
end;
writeln(k);
end.
Похожие записи/страницы:
- Дано целое число N (> 1). Найти наименьшее целое число K, при котором выполняется неравенство 3^K > N - Pascal(Паскаль)
- Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3^K < N -…
- Дано целое число N (>1). Вывести наибольшее целое К, при котором выполняется неравенство 3К< N, и само…
- Дано целое значение m при котором m>10 найти целые значения K при котором 4^k < m - Pascal(Паскаль)
- Дано целое число N (> 0). Найти наименьшее целое положительное число K, квадрат которого превосходит N: K^2…
- Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n без использования…
- Дано целое число N (> 0), являющееся некоторой степенью числа 2: N = 2^K. Найти целое число K — показатель этой…
- Дано целое число N (> 0). Найти наибольшее целое число K, квадрат которого не превосходит N: K^2 меньше или…