var

n,m:int64;

i:longint;

begin

readln(n);

m:=1;i:=1;

if n=1 then

begin

writeln(0);

exit;

end;

repeat

inc(i);

m:=m*3;

until m>n;

writeln(i-1);

end.

#include

using namespace std;

int main()

{

long n, total = 0;

cin >> n;

while(n > 0)

{

n /= 3;

total ++;

}

cout

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

#include

using namespace std;

main ()

{

long long n;

int i=0,j=1;

cin>>n;

for (;j

repeat

m:=m+1;

n:=(n+2) div 3;

until n=1;

交错题3次

我的AC率啊！

o(╯□╰)o

⊙﹏⊙b汗

+_+

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

i,n:longint;

begin

readln(n);

if n=1 then writeln(0)

else for i:=0 to maxlongint do

if (n>trunc(exp(ln(3)*(i-1))))and(n

此题的规律和公式

可读性强的程序

http://wwzhwdwd.blog.163.com/blog/static/12815145020098186436696

万一我RP爆发，随便捏两个球就一轻一重~！！！！！

水~！！！！！！！！！！！！！！！！！！！！！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

n,m:int64;

i:longint;

begin

readln(n);

m:=1;i:=1;

if n=1 then begin

writeln(0);

halt;

end;

repeat

inc(i);

m:=m*3;

until m>n;

writeln(i-1);

end.

本来就是水题,数据变大了还是水题

庆祝一颗星

用三分法。

说白了就是求比n小的,最接近n的3的幂是三的几次方

水题水题

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

n:longint;

begin

readln(n);

writeln(trunc(ln(n)/ln(3))+1);

end.

一直除以3,直到等于0，输出除的次数

st!!!!

水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水

var n,m:real;

begin

readln(n);

m:=(ln(n)/ln(3))+1;

writeln(trunc(m));

end.

dp???????????????????????????????????????????????????????????????????????

var n,m,i:longint;

begin

readln(n);

repeat

m:=n div 3;

inc(i);

n:=m

until m=0;

write(i);

end.

汗，直呼：水题啊！

第一次开太小，挂了

第二次把INTEGER 改成 LONGINT 就AC了

我可怜的通过率啊。。。。。

var n,c:longint;

begin

read(n);

c:=0;

while n>1 do

begin

c:=c+1;

if n mod 3=0 then n:=n div 3

else n:=(n div 3)+1;

end;

write(c);

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

{递归求解：非常快的**。因为每次递归数都除3，降1/3，即使是20位的数据也能秒杀}

var

n:int64;

m:int64;

function f(x:int64):int64;

begin

if (x=0)or(x=1)then begin f:=0;exit;end;

if (x=1)or(x=3)then begin f:=1;exit;end;

if x mod 3=0 then f:=f(x div 3)+1;

if x mod 3=1 then f:=f((x+2)div 3)+1;

if x mod 3=2 then f:=f((x+1)div 3)+1;

end;

begin

readln(n);

m:=f(n);

writeln(m);

end.

var

n:longint;

x:longint;

begin

read(n);

x:=trunc(ln(n)/ln(3)+0.99999999);

writeln(x);

end.

严重bs贴上错的程序。。

好像不是动态规划了，，基于三分法的计算方法。中间那个表达式非常粗糙，其实就是进1法保留整数。。。。。刚好跟动态规划逆过来。。

秒杀。。

var ans,n:longint;

begin

readln(n);

while n>1 do

begin

n:=(n div 3)+(n mod 3+1)div 2;

inc(ans);

end;

writeln(ans);

end.