bzoj1263

观察可得，最大的拆分方法是尽量拆成3，特殊的，如果最后剩下了1，那么就把3+1变成2+2

然后高精度计算即可

var s2,s3,i,n,l:longint;
    a:array[0..5010] of longint;

procedure mul(x,m:longint);
  var i,j,c,y:longint;
  begin
    for i:=1 to m do
    begin
      inc(l);
      c:=0;
      for j:=1 to l do
      begin
        y:=a[j]*x+c;
        c:=y div 10;
        a[j]:=y mod 10;
      end;
      while a[l]=0 do dec(l);
    end;
  end;

begin
  readln(n);
  if n mod 3=0 then s3:=n div 3
  else if n mod 3=1 then
  begin
    s3:=(n-4) div 3;
    s2:=2;
  end
  else if n mod 3=2 then
  begin
    s3:=(n-2) div 3;
    s2:=1;
  end;
  a[1]:=1;
  l:=1;
  mul(3,s3);
  mul(2,s2);
  writeln(l);
  for i:=l downto l-99 do
  begin
    if i<=0 then break;
    write(a[i]);
  end;
  writeln;
end.