找规律，初始为3，每次*3.

program lx;

var

n:longint;

i,j:longint;

x:longint;

begin

read(n);

x:=3;i:=1;

while n>x do

begin

x:=3*x;

i:=i+1;

end;

write(i);

end.

var m:qword;

function zc(x:qword):qword;

var k:longint;

begin

case x of

0,1:zc:=0;

2,3:zc:=1;

else case x mod 3 of

0:zc:=1+zc(x div 3);

1,2:zc:=1+zc((x div 3)+1);

end;

end;

end;

begin

read(m);

write(zc(m));

end.

var

t:integer;

n,zn:qword;

begin

readln(n);

if n=0 then time:=0;

if (n>1)and(n=4 then

begin

zn:=3;

time:=1;

repeat

begin

zn:=zn*3;

time:=time+1;

end;

until n

水题

我都懒得在fp里写了，直接提交。

简简单单

var time:integer;

N,ZN:INT64;

begin

readln(n);

if n=0 then time:=0;

if (n>1)and(n=4 then

begin

zn:=3;

time:=1;

repeat

begin

zn:=zn*3;

time:=time+1;

end;

until n

program s2;

var time:integer;

N,ZN:INT64;

begin

readln(n);

if n=0 then time:=0;

if (n>1)and(n=4 then

begin

zn:=3;

time:=1;

repeat

begin

zn:=zn*3;

time:=time+1;

end;

until n

找规律!

#include

int main()

{

int a,i,tmp=1;

scanf("%d",&a);

for (i=1;i=tmp&&a

program das;

var n:longint;

begin

readln(n);

if (n>=2)and(n=4)and(n=10)and(n=28)and(n=82)and(n=244)and(n=730)and(n=2188)and(n=6562)and(n=59050)and(n=177148)and(n=531442)and(n

第123次提交，纪念

原来不要高精度的，我汗下

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

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

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

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

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

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

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

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

├ 测试数据 09：运行时错误...|错误号: 2293616

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

汗水TT

强烈bs，这算什么动规....

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

编译通过...

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

begin

readln(n);

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

end.

题目有点白痴

题目说： 用天平最少称几次可以称出来？

没指明是对待任意情况；

假设我拿2个球出来比，天平不平衡，那么重的就是了。

于是，答案全部为1。。。。。。

题目的答案：

我来说下答案的思路：

（1）将球平均分成3堆。。。（接下来进行下一步）

（2）然后选两堆比较，平衡的话对第3堆进行（1） 如果不平衡对重的那堆进行（1）---|直到剩下一个；

答案就出来了

此题甚水...

var //最多13次

l,r,n,m:longint;

begin

readln(n);

if (n>=2) and (n=4) and (n=10) and (n=28) and (n=82) and (n=244) and (n=730) and (n=2188) and (n=6562) and (n=59050) and (n=177148) and (n=531442) and (n

100题纪念O(∩_∩)O~

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

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

秒杀。。。

var n:longint;

total:integer;

begin

readln(n);

while true do

if n

我没看见是动态规划，直接用数组做的，一次AC

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program p1361;

var i,m,j:longint;

n:longint;

a:array[1..30001] of int64;

begin

readln(n);

if na) and (n

var n,s:int64;

v:longint;

begin

read(n);

while n1 do

begin

s:=n;

n:=n div 3;

if s mod 3>0 then inc(n);

inc(v);

end;

writeln(v);

end.

很精简，呵呵