(ssl1324)08年东莞特长生 吝啬的地主

2008年东莞特长生
之
吝啬的地主

Description

　　很久以前，有一户地主对家里的工人“安理”非常的吝啬，工钱也很低，新的一年开始了，地主对安理说“我今年有一块正方形的田地，将它分成了N*N小块，你要好好耕哦，这块地的工钱我另算，你要多少工钱，说说看，让我考虑一下？”安理思考了一下，说“这样吧，在第一小块算1粒米，第二小块算2粒米，第三小块算22=4粒米，第四小块算23=8粒米，以此类推，最后一小块算2n*n-1粒米，每一小块的米的数量和就算是我的工钱了。”地主没什么文化，一口就答应了。现在已知N的值，请你帮安理算一算，这块N*N的田地，他总共能得到多少粒米。

Input

　　只有一个数，表示N的值

Output

　　只有一个数，表示安理总共能得到的米的粒数。

Sample Input

2

Sample Output

15

Hint

数据说明：
1、20%的结果在整数范围内，40%的结果在长整范围内；
2、70%的结果位数小于250位，100%的结果位数小于500位。

Source

elba

题解：

   本题就是个高精度加法+高精乘低精，没了…

var
 n,i:longint;
 s,ss,ans:ansistring;
 z:char;
function max(a,b:longint):longint;
begin
 if a>b then exit(a);
 exit(b);
end;

procedure gjj;//高精度加法
var
 a,b,c:array[1..500]of longint;
 i,len1,len2,maxn:longint;
begin
 fillchar(c,sizeof(c),0);
 len1:=length(s);
 len2:=length(ans);
 for i:=1 to len1 do val(s[i],a[len1-i+1]);
 for i:=1 to len2 do val(ans[i],b[len2-i+1]);
 maxn:=max(len1,len2);
 for i:=1 to maxn do
  begin
   c[i]:=c[i]+a[i]+b[i];
   c[i+1]:=c[i] div 10;
   c[i]:=c[i] mod 10;
  end;
 if c[maxn+1]<>0 then inc(maxn);//使最高位的进位能插入字符串
 ans:='';
 for i:=maxn downto 1 do//插入字符串（蒟蒻只会一个一个放进去，请大佬指点迷津orz）
  begin
   str(c[i],ss);
   ans:=ans+ss;
  end;
end;

procedure gjc;//高精乘低精
var
 a,c:array[1..500]of longint;
 i,len:longint;
begin
 fillchar(a,sizeof(a),0);
 fillchar(c,sizeof(c),0);
 len:=length(s);
 for i:=1 to len do val(s[i],a[len-i+1]);
 for i:=1 to len do
  begin
   c[i]:=c[i]+a[i]*2;
   c[i+1]:=c[i] div 10;
   c[i]:=c[i] mod 10;
  end;
 if c[len+1]<>0 then inc(len);
 s:='';
 for i:=len downto 1 do
  begin
   str(c[i],ss);
   s:=s+ss;
  end;
end;

begin
 read(n);
 s:='1'; ans:='0';//初始化
 for i:=1 to n*n do//n*n块土地
  begin
   gjj;
   gjc;
  end;
 write(ans);
end.