block

#include<cstdio>
#include<cmath>
int main(){
float x=0.0;
long int s;
scanf("%ld",&s);
x=log2(s)/log2(3);
s=floor(x)+1;
printf("%ld",s);
return 0;
}

提交的第一个程序,把n不断div 3直到0,输入3输出2(这显然是不正确的,可它A了)

第二个程序,吧k不断乘以3直到它不小于n,输入3输出1(这个就看着舒服了,它也A了).....

VijosNT Mini 2.0.5.7 Special for Vijos

编译通过...

├ 测试数据 01：答案正确... (0ms, 98332KB)

├ 测试数据 02：答案正确... (0ms, 98332KB)

├ 测试数据 03：答案正确... (0ms, 98332KB)

├ 测试数据 04：答案正确... (0ms, 98332KB)

├ 测试数据 05：答案正确... (0ms, 98332KB)

├ 测试数据 06：答案正确... (0ms, 98332KB)

├ 测试数据 07：答案正确... (0ms, 98332KB)

├ 测试数据 08：答案正确... (0ms, 98332KB)

├ 测试数据 09：答案正确... (0ms, 98332KB)

├ 测试数据 10：答案正确... (0ms, 98332KB)

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

Accepted / 100 / 0ms / 98332KB

view sourceprint?1 var

2 n,i:longint;

3 f:array[0..50000000] of integer;

4 begin

5 readln(n);

6 f[1]:=1;

7 for i:=2 to n do f[i]:=f[i div 3]+1;

8 writeln(f[n]);

9 end.

递推......

var n,Time:longint;

begin

readln(n);Time:=0;

while n>0 do begin

inc(Time);

n:=n div 3;

end;

writeln(Time);

end.

超级大水题！完全是数学中的抽屉问题，用三分做，轻松AC！！至于出题人说的DP，没试过。

var

n,m:longint;

begin

readln(n);

repeat

inc(m);

n:=n div 3;

until n=0;

writeln(m);

readln;

readln;

end.

水题~我还用动规做~害我Wa一次~

Program P1361;

var n,Time:longint;

begin

readln(n);Time:=0;

while n>0 do begin

inc(Time);

n:=n div 3;

end;

writeln(Time);

end.

难道这题没有开判定程序抄袭系统???

cout

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

除了P1000写的最短的一个程序了...

var n:longint;

begin

readln(n);

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

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

大大大大大大大大大大，啊

So easy!

var i,s,n:longint;

begin

i:=0;

s:=1;

readln(n);

if n=0 then begin writeln(0);exit; end;

repeat

inc(i);

s:=s*3;

until s>=n;

writeln(i);

end.

同zhaoyifeng

但为什么呢

var

s,n:longint;

begin

s:=0;

readln(n);

while n0 do

begin

n:=n div 3 ;

inc(s);

end;

writeln(s);

end.

“注释 Hint

非常简单，主要是找规律和动规 ”

难道就没人看出这是我忽悠你们的么？

真是搞笑，都标了难度1还大叫水题，还不是有1000多人次没通过

Prog64880.pas(2,10) Fatal: Can't find unit objpas used by math

Fatal: Compilation aborted

Evolution SmdCn

彻底无语

～～～

是(int)ceil(log(n)/log(3));

而不是(int)(log(n)/log(3.0))+1

虽然两个都能AC

本来以为是二分，没想到是三分 但怎么着也不用DP啊！！！

编译通过...

├ 测试数据 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,t:longint;

begin

readln(n);

t:=0;

while (n0) do

begin

n:=n div 3;

t:=t+1;

end;

writeln(t);

end.

我有点想农夫山泉了

编译通过...

├ 测试数据 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,i,j,t:longint;

function max(x,y:longint):longint;

begin

if x>y then max:=x else max:=y;

end;

begin

read(n);

while n>=2 do

begin

inc(j);

t:=(n+2) div 3;

n:=max(t,n-2*t);

end;

write(j);

end.