高精度乘方有很多种实现方法2^100用朴素的高精度就可以过了,算法如下Program ex;Constx = 2;y = 100;Vara: array [1..1000] of byte;i, j, k, t: integer;Begina[1] := 1;for i:=1 to y dobegin
k := 0;
for j:=1 to 1000 do
begin
t := a[j] * x + k;
a[j] := t mod 10;
k := t div 10;
end;end;j := 0;for i:=1000 downto 1 doif (a0) or (j0) thenbegin
write(a);
inc(j);end;End.