Question

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

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

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

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.