Дано целое число N(>1).Найдите наибольшее целое число K ,ПРИ КОТОРОМ ВЫПОЛНЯЛОСЬ...

Question

Дано целое число N(>1).Найдите наибольшее целое число K ,ПРИ КОТОРОМ ВЫПОЛНЯЛОСЬ неравенство 3 в степени К

Иходные данные N=65

Пример верного решения K=4

Comments

3^4 = 81. 81>65 Разве нет? Условие неверное. Поправь его и попробую решить.

---

Я ошибся N=95

Answer 1

Var n,i,k,j:integer;

begin

readln(n);
i:=1;
j:=3;

while n>i do begin
i:=i*j;
k:=k+1;
end;

writeln(k-1);

end.