Question

pascal中求2的20000次方怎么编

高精度不行

Answer 1

var
	a:array[1..30000] of byte;
	i,j,t,n:integer;

function nozero:integer;
var k:integer;
begin
	k:=30000;
	repeat
		dec(k);
	until a[k]<>0;	
	nozero:=k;
end;

begin
	n:=20000;
	for i:=1 to 30000 do a[i]:=0;
	a[1]:=1;
	for i:=1 to n do 
		for j:=nozero downto 1 do begin
			t:=2*a[j];
			a[j+1]:=a[j+1]+t div 10;
			a[j]:=t mod 10;
		end;
	writeln(nozero);
	for i:=nozero downto 1 do write(a[i]:1);
end.