传送门 我们可以求出满足 xx−1>(x−1)x 且 xx+1>(x+1)x 的整数x 然后手玩一下发现x=3 所以要尽可能的多拆出3。 不难得到以下方案： 1.n%3==0 拆成n/3个3 2.n%3==1 拆成n/3-1个3，2个2 3.n%3==2 拆成n/3个3，1个2 高精度一发水过。
uses math; var a:array [0..5005] of longint; n,k,kk,i,j:longint; u:extended; begin read(n); if (n<=4) then begin writeln(1); write(n); exit; end; k:=n div 3; if n mod 3=1 then dec(k); kk:=(n-k*3) div 2; u:=k*ln(3)/ln(10)+kk*ln(2)/ln(10); writeln(trunc(u)+1); a[0]:=1; a[1]:=1; for j:=1 to k do begin for i:=1 to a[0] do a[i]:=a[i]*3; for i:=1 to a[0] do begin inc(a[i+1],a[i] div 10); a[i]:=a[i] mod 10; end; if (a[a[0]+1]<>0) then inc(a[0]); end; for j:=1 to kk do begin for i:=1 to a[0] do a[i]:=a[i]*2; for i:=1 to a[0] do begin inc(a[i+1],a[i] div 10); a[i]:=a[i] mod 10; end; if (a[a[0]+1]<>0) then inc(a[0]); end; for i:=a[0] downto max(a[0]-99,1) do write(a[i]); end.