编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

不说怎么可能知道……考试要是考到我就完了

用高精硬过...

………………

for i:=1 to 50 do

begin

a:=a+a[i] div 10000000000;a[i]:=a[i] mod 10000000000;

………………

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

懒惰。直接写高精。。囧

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

一个高精乘，

一个双高精乘

郁闷死··！

写分治法的哥们人能贴个程序上来不？我想瞅瞅。没想明白你们这道题怎么用二分法...

和循环一样属于倍增法的题目,不同的是循环是自身以平方的倍数增长,这个是以二进制的方法倍增.

就是把读入的数字拆成二进制,然后为1翻倍 大约就这样.

最郁闷的是 原题要求每输出50个数字就换行. 结果VJ上没这个要求 搞得我交了三次才看见 伤心...........................

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

Program Mason;

Const

Maxn = 1100;

Jw = 100000;

Pd = 10000;

Type

Hs = Array [0..Maxn] Of Int64;

Var

A: Array [0..22] Of Integer;

G, B: Hs;

i, j, k, p, l: Longint;

Procedure HMul(a, b: Hs; Var c: Hs);

Var

x, i, j: Longint;

Begin

x:=0;

FillChar(c, SizeOf(c), 0);

For i:= 1 To 101 Do

For j:= 1 To 101 Do Begin

c[i + j - 1] := c[i + j - 1] + a[i] * b[j];

c[i + j] := c[i + j] + c[i + j - 1] Div Jw;

c[i + j - 1] := c[ i + j - 1] Mod Jw;

End;

End;

Begin

FillChar(a, SizeOf(a), 0);

FillChar(G, SizeOf(G), 0);

G[1] := 2;

ReadLn(p);

k := p;

l := 0;

While k > 0 Do Begin

Inc(l);

A[l] := k Mod 2;

k := k Div 2;

End;

If A[1] = 0 Then B[1] := 1 Else B[1] := 2;

For i:= 2 To l Do Begin

HMul(G, G, G);

If A[i] = 1 Then HMul(B, G, B);

End;

Dec(B[1]);

l := 0;

WriteLn(Trunc(p * Ln(2) / Ln(10)) + 1);

For i:= 100 DownTo 1 Do Begin

// Inc(l);

If (B[i] >= Pd) Then Write(B[i]);

If (B[i] >= Pd Div 10) And (B[i] < Pd) Then Write('0', B[i]);

If (B[i] >= 100) And (B[i]< Pd Div 10) Then Write('00', B[i]);

If (B[i] >= 10) And (B[i] < 100) Then Write('000', B[i]);

If (B[i] >= 0) And (B[i] < 10) Then Write('0000', B[i]);

// If l Mod 10 = 0 Then WriteLn;

End;

End.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

其实43行代码就可以AC，而且全部0ms

想看程序的来我的BLOG

http://blog.163.com/csa_hacker/blog/

static/93746444200886104525834/edit/

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

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

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

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

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

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

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

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

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

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

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

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

题水。。没办法

倍增思想

我的程序运行超时,我用的是高精度,有没有更快的方法?

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

├ 测试数据 01：运行超时...

├ 测试数据 02：运行超时...

├ 测试数据 03：运行超时...

├ 测试数据 04：运行超时...

├ 测试数据 05：运行超时...

├ 测试数据 06：运行超时...

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

├ 测试数据 08：运行超时...

├ 测试数据 09：运行超时...

├ 测试数据 10：运行超时...

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

Unaccepted 有效得分：10 有效耗时：541ms

赶上puppy了，无奈～AC

一次全部0ms,只是我初中生不太明白对数。

还是不知道这道题为什么是普及组

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

高精度分治，一次AC

不用快速幂也可以，把P转成2进制，然后求，复杂度是2进制下P的长度

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

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

Rp不好

dog!!!!!!!!!!!!!!!!!

编译通过...

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

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

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

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

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

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

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

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

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

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

新手版 一次AC

草草了事的程序，啰里啰唆的时间。

明知道高精度乘法要四五位一起乘，但懒得做。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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