望高手相告pascal中一道求2的N次方的题目答案。

Description （题目）

要求计算2的N次方。

Input（输入）

一行，一个整数，表示N。N为不超过1000的正整数。

Output （输出）

一行，表示计算结果。

Sample Input （例子，输入）

10

Sample Output （例子，输出）

1024

答题需要很规范，谨慎。

var    a    : array[ 1..300 ] of 0..9 ;
    n , k , i    : longint ;

procedure work ;
var    x , i    : Longint ;
begin
    x := 0 ;
    for i := 1 to k do
    begin
    x := a[ i ] * 2 + x ;
    a[ i ] := x mod 10 ;
    x := x div 10 ;
    end;
    while x > 0 do
    begin
    inc( k );
    a[ k ] := x mod 10 ;
    x := x div 10 ;
    end;
end;

begin
    readln( n );
    a[ 1 ] := 1 ;
    k := 1 ;
    for i := 1 to n do
    work ;
    for i := k downto 1 do
    write( a[ i ] );
    writeln;
end.

用快速幂+高精度来做

[a+b]的4次方=[(a+b)²]²=（a²+2ab+b²）²=a^4+2a³b+a²b²+2a³b+4a²b²+2ab³+a²b²+2ab³+b^4=a^4+4a³b+6a²b²+4ab³+b^4由杨辉三角形(A+B)^4=A^4+4A^3B+6A^2B^2+4AB^3+B^4