(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.