var n:longint;

function work(n:longint):longint;

begin

if (n=2)or(n=3) then work:=1 else if (n=1) then work:=0 else

begin if n mod 3=0 then work:=work(n div 3)+1 else work:=work((n div 3)+1)+1;end;

end;

begin

readln(n);

writeln(work(n));

end.

program p1361;

var n:longint;

function work(n:longint):longint;

begin

if (n=2)or(n=3) then work:=1 else if (n=1) then work:=0 else

begin if n mod 3=0 then work:=work(n div 3)+1 else work:=work((n div 3)+1)+1;end;

end;

begin

readln(n);

writeln(work(n));

end.

13行直接 AC ，除1000以外最牛的水题。。MS小学4年级就学过的规律。。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

DP解：

f[i]=f[ top[i div 3] ]+1;

(top[r] 为>=r的整数).

分成3堆称,数目最大的1堆再要称(子问题),递归求解

这题怎么是dp？

谁能拿出DP的做法？

怎么...算比n小的,最接近n的3的幂是三的几次方,然后加一,这种题目居然归类到动规里面...真是无语至极...

输入a

若2^x

找规律但不用DP,9个时是2次

.....不就是一个简单的数学题吗?.......

怎么用动规啊?

请问9个为什么是3次啊？

o(∩_∩)o...

水水

人家出成ＤＰ你们就应该想ＤＰ的方法

无敌水题~~！！！！！

有些奇怪

1个时，0次

2个时，1次

3个时，一边1个，1次

4个时，一边1个，再一边1个，2次

5个时，一边2个，如果正好相等，则1次

6个时，一边2个，再一边1个，2次

7个时，一边3个，如果正好相等，则1次

这是不是说明，是1则0，除1外的奇数则为1，是2则1，除2外偶数则为2

可这和大家的程序得出的结果不同啊，请问我哪里错了

惊！！！6分钟ac!!我看见海平面有上涨了~~~

100%的数学方法！

懒得写公式了~~

真搞不懂vijos是怎么归类的。。。

这道题显然的数学方法嘛``

不用数学方法也用分治呀``

怎么会归为DP`\`=_=||

死活想用DP做,死活有一个点过不去.人品……极度人品，同样程序同样评测机，第一次第9个点超时，第二次第10个点超时，其他全部0MS……什么人品啊！！！！

最后还是用公式= = 无奈……

var

a,b,c,d,e,f,g,h,i,j,k,n:longint;

begin

read(n);

a:=3;

b:=a*3;

c:=b*3;

d:=c*3;

e:=d*3;

f:=e*3;

g:=f*3;

h:=g*3;

i:=h*3;

j:=i*3;

k:=j*3;

if (n