179 条题解

  • 0
    @ 2008-11-09 10:29:58

    var

    san,er,n,i,x:longint;

    ans:array[1..300] of integer;

    procedure times;

    var

    i,j:longint;

    begin

    for i:=1 to 300 do

    ans[i]:=ans[i]*3;

    for j:=1 to 299 do

    begin

    inc (ans[j+1],ans[j] div 10);

    ans[j]:=ans[j] mod 10;

    end;

    end;

    begin

    readln (n);

    if n=1 then begin writeln(1); halt; end

    else if n=2 then begin writeln (2); halt; end

    else if n mod 3=0 then begin x:=n div 3; ans[1]:=1; end

    else if (n-2) mod 3=0 then begin x:=(n-2) div 3; ans[1]:=2; end

    else if (n-4) mod 3=0 then begin x:=(n-4) div 3; ans[1]:=4; end;

    while x>0 do

    begin

    times;

    dec (x);

    end;

    x:=300;

    while ans[x]=0 do dec (x);

    for i:=x downto 1 do

    write (ans[i]);

    end.├ 测试数据 40:答案正确... 0ms

  • 0
    @ 2008-11-06 17:22:19

    编译通过...

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

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

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

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

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

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

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

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

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

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

    ├ 测试数据 11:答案正确... 0ms

    ├ 测试数据 12:答案正确... 0ms

    ├ 测试数据 13:答案正确... 0ms

    ├ 测试数据 14:答案正确... 0ms

    ├ 测试数据 15:答案正确... 0ms

    ├ 测试数据 16:答案正确... 0ms

    ├ 测试数据 17:答案正确... 0ms

    ├ 测试数据 18:答案正确... 0ms

    ├ 测试数据 19:答案正确... 0ms

    ├ 测试数据 20:答案正确... 0ms

    ├ 测试数据 21:答案正确... 0ms

    ├ 测试数据 22:答案正确... 0ms

    ├ 测试数据 23:答案正确... 0ms

    ├ 测试数据 24:答案正确... 0ms

    ├ 测试数据 25:答案正确... 0ms

    ├ 测试数据 26:答案正确... 0ms

    ├ 测试数据 27:答案正确... 0ms

    ├ 测试数据 28:答案正确... 0ms

    ├ 测试数据 29:答案正确... 0ms

    ├ 测试数据 30:答案正确... 0ms

    ├ 测试数据 31:答案正确... 0ms

    ├ 测试数据 32:答案正确... 0ms

    ├ 测试数据 33:答案正确... 0ms

    ├ 测试数据 34:答案正确... 0ms

    ├ 测试数据 35:答案正确... 0ms

    ├ 测试数据 36:答案正确... 0ms

    ├ 测试数据 37:答案正确... 0ms

    ├ 测试数据 38:答案正确... 0ms

    ├ 测试数据 39:答案正确... 0ms

    ├ 测试数据 40:答案正确... 0ms

    ├ 测试数据 41:答案正确... 0ms

    ├ 测试数据 42:答案正确... 0ms

    ├ 测试数据 43:答案正确... 0ms

    ├ 测试数据 44:答案正确... 0ms

    ├ 测试数据 45:答案正确... 0ms

    ├ 测试数据 46:答案正确... 0ms

    ├ 测试数据 47:答案正确... 0ms

    ├ 测试数据 48:答案正确... 0ms

    ├ 测试数据 49:答案正确... 0ms

    ├ 测试数据 50:答案正确... 0ms

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

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

  • 0
    @ 2008-11-06 14:25:43

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

    不容易 Vag 6k也能0ms

  • 0
    @ 2008-11-03 21:30:47

    。。。。。。。。。。。。同一个程序交上去,前一个居然超了一个点。。。郁闷啊。。

  • 0
    @ 2008-11-02 16:20:16

    谢谢tiane12大牛

    数论解法果然十分顶歇

    var i,j,k,l,m,n:longint;

    a:array[0..1500] of int64;

    s:string;

    function cheng(x:string;y:longint):string;

    var g,t,jw,mid:longint;

    a:array[1..1000] of longint;

    mm:array[1..1000] of longint;

    begin

    fillchar(a,sizeof(a),0);

    t:=length(x);

    for g:=1 to t do

    a[t-g+1]:=ord(x[g])-48;

    jw:=0;

    fillchar(mm,sizeof(mm),0);

    for g:=1 to t+1 do

    begin

    mid:=a[g]*y+jw;

    mm[g]:=mid mod 10;

    jw:=mid div 10;

    end;

    if mm[t+1]>0 then t:=t+1;

    cheng:='';

    for g:=t downto 1 do

    cheng:=cheng+chr(mm[g]+48);

    // writeln(cheng);

    end;

    begin

    read(n);

    if n=1 then

    begin

    writeln(1);

    exit;

    end;

    s:='1';

    k:=n div 3;

    l:=n mod 3;

    case l of

    0:for i:=1 to k do s:=cheng(s,3);

    1:begin for i:=1 to k-1 do s:=cheng(s,3);s:=cheng(s,4);end;

    2:begin for i:=1 to k do s:=cheng(s,3);s:=cheng(s,2);end;

    end;

    writeln(s);

    end.

  • 0
    @ 2008-11-02 08:53:51

    var

    a:array[1..300]of integer;

    i,j,n,k,x,y,w:integer;

    begin

    readln(n); k:=0;

    if n=1 then writeln('1')

    else if n=2 then writeln('2')

    else if n=3 then writeln('3')

      else if n=4 then writeln('4')

    else if n=5 then writeln('6')

    else begin

    x:=n mod 3;

    if(x=1)then begin k:=(n div 3)-1;x:=4;end

         else if (x=0)then begin k:=n div 3;x:=1;end

         else k:=(n div 3);

    fillchar(a,sizeof(a),0);

    a[1]:=1;y:=0;w:=1;

    for i:=1 to k do

    for j:=1 to w do

    begin

      a[j]:=a[j]*3+y;

      y:=a[j] div 10;

      a[j]:=a[j] mod 10;

      if (j=w)and(y0)then

      begin

       w:=w+1;

       a[w]:=y;

       y:=0;

      end;

    end;

    for j:=1 to w do

    begin a[j]:=a[j]*x+y;

      y:=a[j] div 10;

      a[j]:=a[j] mod 10;

      if (j=w)and(y0)then

      begin w:=w+1;a[w]:=y;end;

    end;

    for i:=w downto 1 do

      write(a[i]);end;

    writeln;

    end.

  • 0
    @ 2008-10-29 22:33:52

    本人懒用高精……

  • 0
    @ 2008-10-29 17:00:07

    将原数除以3得到整数商和余数,

    如果余数为0,则最大积为3的商次方;

    如果余数为2,则最大积为3的商次方乘以2;

    如果余数为1,则最大积为3的商-1次方乘以4。

    ...貌似 有本奥赛经典的书上就有。。。。但具体没有证明……

    shilusd...hzhua

    大牛……GF?!..

  • 0
    @ 2008-10-29 16:29:42

    ...

  • 0
    @ 2008-10-28 10:59:43

    感谢楼下众大牛

    60次Ac纪念

  • 0
    @ 2008-10-28 08:08:57

    编译通过...

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

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

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

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

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

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

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

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

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

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

    ├ 测试数据 11:答案正确... 0ms

    ├ 测试数据 12:答案正确... 0ms

    ├ 测试数据 13:答案正确... 0ms

    ├ 测试数据 14:答案正确... 0ms

    ├ 测试数据 15:答案正确... 0ms

    ├ 测试数据 16:答案正确... 0ms

    ├ 测试数据 17:答案正确... 0ms

    ├ 测试数据 18:答案正确... 0ms

    ├ 测试数据 19:答案正确... 0ms

    ├ 测试数据 20:答案正确... 0ms

    ├ 测试数据 21:答案正确... 0ms

    ├ 测试数据 22:答案正确... 0ms

    ├ 测试数据 23:答案正确... 0ms

    ├ 测试数据 24:答案正确... 0ms

    ├ 测试数据 25:答案正确... 0ms

    ├ 测试数据 26:答案正确... 0ms

    ├ 测试数据 27:答案正确... 0ms

    ├ 测试数据 28:答案正确... 0ms

    ├ 测试数据 29:答案正确... 0ms

    ├ 测试数据 30:答案正确... 0ms

    ├ 测试数据 31:答案正确... 0ms

    ├ 测试数据 32:答案正确... 0ms

    ├ 测试数据 33:答案正确... 0ms

    ├ 测试数据 34:答案正确... 0ms

    ├ 测试数据 35:答案正确... 0ms

    ├ 测试数据 36:答案正确... 0ms

    ├ 测试数据 37:答案正确... 0ms

    ├ 测试数据 38:答案正确... 0ms

    ├ 测试数据 39:答案正确... 0ms

    ├ 测试数据 40:答案正确... 0ms

    ├ 测试数据 41:答案正确... 0ms

    ├ 测试数据 42:答案正确... 0ms

    ├ 测试数据 43:答案正确... 0ms

    ├ 测试数据 44:答案正确... 0ms

    ├ 测试数据 45:答案正确... 0ms

    ├ 测试数据 46:答案正确... 0ms

    ├ 测试数据 47:答案正确... 0ms

    ├ 测试数据 48:答案正确... 0ms

    ├ 测试数据 49:答案正确... 0ms

    ├ 测试数据 50:答案正确... 0ms

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

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

    var

    a:array[1..300]of integer;

    i,j,n,k,x,y,w:integer;

    begin

    readln(n); k:=0;

    if n=1 then writeln('1')

    else if n=2 then writeln('2')

    else if n=3 then writeln('3')

    else if n=4 then writeln('4')

    else if n=5 then writeln('6')

    else begin

    x:=n mod 3;

    if(x=1)then begin k:=(n div 3)-1;x:=4;end

    else if (x=0)then begin k:=n div 3;x:=1;end

    else k:=(n div 3);

    fillchar(a,sizeof(a),0);

    a[1]:=1;y:=0;w:=1;

    for i:=1 to k do

    for j:=1 to w do

    begin

    a[j]:=a[j]*3+y;

    y:=a[j] div 10;

    a[j]:=a[j] mod 10;

    if (j=w)and(y0)then

    begin

    w:=w+1;

    a[w]:=y;

    y:=0;

    end;

    end;

    for j:=1 to w do

    begin a[j]:=a[j]*x+y;

    y:=a[j] div 10;

    a[j]:=a[j] mod 10;

    if (j=w)and(y0)then

    begin w:=w+1;a[w]:=y;end;

    end;

    for i:=w downto 1 do

    write(a[i]);end;

    end.

    挺好。

  • 0
    @ 2008-10-27 10:18:27

    BS楼下某不和谐的HZHUA...

    P.S. 此人有gf...

  • 0
    @ 2008-10-22 18:54:53

    编译通过...

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

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

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

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

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

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

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

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

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

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

    ├ 测试数据 11:答案正确... 0ms

    ├ 测试数据 12:答案正确... 0ms

    ├ 测试数据 13:答案正确... 0ms

    ├ 测试数据 14:答案正确... 0ms

    ├ 测试数据 15:答案正确... 0ms

    ├ 测试数据 16:答案正确... 0ms

    ├ 测试数据 17:答案正确... 0ms

    ├ 测试数据 18:答案正确... 0ms

    ├ 测试数据 19:答案正确... 0ms

    ├ 测试数据 20:答案正确... 0ms

    ├ 测试数据 21:答案正确... 0ms

    ├ 测试数据 22:答案正确... 0ms

    ├ 测试数据 23:答案正确... 0ms

    ├ 测试数据 24:答案正确... 0ms

    ├ 测试数据 25:答案正确... 0ms

    ├ 测试数据 26:答案正确... 0ms

    ├ 测试数据 27:答案正确... 0ms

    ├ 测试数据 28:答案正确... 0ms

    ├ 测试数据 29:答案正确... 0ms

    ├ 测试数据 30:答案正确... 0ms

    ├ 测试数据 31:答案正确... 0ms

    ├ 测试数据 32:答案正确... 0ms

    ├ 测试数据 33:答案正确... 0ms

    ├ 测试数据 34:答案正确... 0ms

    ├ 测试数据 35:答案正确... 0ms

    ├ 测试数据 36:答案正确... 0ms

    ├ 测试数据 37:答案正确... 0ms

    ├ 测试数据 38:答案正确... 0ms

    ├ 测试数据 39:答案正确... 0ms

    ├ 测试数据 40:答案正确... 0ms

    ├ 测试数据 41:答案正确... 0ms

    ├ 测试数据 42:答案正确... 0ms

    ├ 测试数据 43:答案正确... 0ms

    ├ 测试数据 44:答案正确... 0ms

    ├ 测试数据 45:答案正确... 0ms

    ├ 测试数据 46:答案正确... 0ms

    ├ 测试数据 47:答案正确... 0ms

    ├ 测试数据 48:答案正确... 0ms

    ├ 测试数据 49:答案正确... 0ms

    ├ 测试数据 50:答案正确... 0ms

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

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

  • 0
    @ 2008-10-22 10:54:29

    type bn=array[0..100] of longint;

    var

    ans:bn;

    n,i,tm:longint;

    procedure print;

    begin

    write(ans[ans[0]]);

    for i:=ans[0]-1 downto 1 do

    begin

    tm:=1000;

    while tm0 do

    begin

    write(ans[i] div tm);

    ans[i]:=ans[i] mod tm;

    tm:=tm div 10;

    end;

    end;

    writeln;

    end;

    procedure multiply(a:bn;b:longint;var c:bn);

    var i:longint;

    begin

    fillchar(c,sizeof(c),0);

    for i:=1 to a[0] do

    begin

    inc(c[i],a[i]*b);

    inc(c,c[i] div 10000);

    c[i]:=c[i] mod 10000;

    end;

    if c>0 then c[0]:=i+1 else c[0]:=i;

    end;

    begin

    readln(n);

    ans[0]:=1;ans[1]:=1;

    while n>4 do

    begin

    n:=n-3;

    multiply(ans,3,ans);

    end;

    multiply(ans,n,ans);

    print;

    end.

  • 0
    @ 2008-10-16 20:05:52

    原来要用高乘,我对题目看了半天,又对程序搞了半天,还是答案错误。

    最后看了题解才明白,谢谢各位啦~~

    我终于AC了,哈哈~~感谢各位~~

  • 0
    @ 2008-10-14 19:57:43

    很郁闷地交了4次...

    前3次是同一个程序...但是为什么每次都超时一个点...而且每次超的点不一样!...

    最后改写了4位高精才终于过了...

  • 0
    @ 2008-10-11 20:19:36

    70AC!庆祝一下!!!

    顺便问一下,为什么同一条程序,交了4次都有一组超时,第5次却对了?

  • 0
    @ 2008-10-08 21:38:21

    编译通过...

    ├ 测试数据 01:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 02:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 03:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 04:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 05:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 06:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 07:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 08:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 09:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 10:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 11:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 12:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 13:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 14:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 15:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 16:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 17:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 18:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 19:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 20:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 21:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 22:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 23:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 24:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 25:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 26:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 27:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 28:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 29:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 30:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 31:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 32:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 33:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 34:答案正确... 0ms

    ├ 测试数据 35:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 36:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 37:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 38:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 39:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 40:答案正确... 0ms

    ├ 测试数据 41:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 42:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 43:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 44:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 45:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 46:答案正确... 0ms

    ├ 测试数据 47:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 48:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 49:答案错误...

     ├ 标准行输出

     ├ 错误行输出

    ├ 测试数据 50:答案错误...

     ├ 标准行输出

     ├ 错误行输出

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

    Unaccepted 有效得分:6 有效耗时:0ms

    Why?????????

  • 0
    @ 2008-10-05 20:19:56

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

    感谢题解里面的每一位。。。。。

  • 0
    @ 2008-10-03 15:16:44

    ..第一次交..

    编译通过...

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

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

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

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

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

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

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

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

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

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

    ├ 测试数据 11:答案正确... 0ms

    ├ 测试数据 12:运行超时|无输出...

    ├ 测试数据 13:答案正确... 0ms

    ├ 测试数据 14:答案正确... 0ms

    ├ 测试数据 15:答案正确... 0ms

    ├ 测试数据 16:答案正确... 0ms

    ├ 测试数据 17:答案正确... 0ms

    ├ 测试数据 18:答案正确... 0ms

    ├ 测试数据 19:答案正确... 0ms

    ├ 测试数据 20:答案正确... 0ms

    ├ 测试数据 21:答案正确... 0ms

    ├ 测试数据 22:答案正确... 0ms

    ├ 测试数据 23:答案正确... 0ms

    ├ 测试数据 24:答案正确... 0ms

    ├ 测试数据 25:答案正确... 0ms

    ├ 测试数据 26:答案正确... 0ms

    ├ 测试数据 27:答案正确... 0ms

    ├ 测试数据 28:答案正确... 0ms

    ├ 测试数据 29:答案正确... 0ms

    ├ 测试数据 30:答案正确... 0ms

    ├ 测试数据 31:答案正确... 0ms

    ├ 测试数据 32:答案正确... 0ms

    ├ 测试数据 33:答案正确... 0ms

    ├ 测试数据 34:答案正确... 0ms

    ├ 测试数据 35:答案正确... 0ms

    ├ 测试数据 36:答案正确... 0ms

    ├ 测试数据 37:答案正确... 0ms

    ├ 测试数据 38:答案正确... 0ms

    ├ 测试数据 39:答案正确... 0ms

    ├ 测试数据 40:答案正确... 0ms

    ├ 测试数据 41:答案正确... 0ms

    ├ 测试数据 42:答案正确... 0ms

    ├ 测试数据 43:答案正确... 0ms

    ├ 测试数据 44:答案正确... 0ms

    ├ 测试数据 45:答案正确... 0ms

    ├ 测试数据 46:答案正确... 0ms

    ├ 测试数据 47:答案正确... 0ms

    ├ 测试数据 48:答案正确... 0ms

    ├ 测试数据 49:答案正确... 0ms

    ├ 测试数据 50:答案正确... 0ms

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

    Unaccepted 有效得分:98 有效耗时:0ms..

    啊啊啊啊啊啊!!!!!

    然后第二次再交一样的//..

    秒杀..

    什么RP..

信息

ID
1033
难度
5
分类
其他 | 数学 点击显示
标签
(无)
递交数
3719
已通过
1201
通过率
32%
被复制
9
上传者