pascal中定义2的n次方pascal中如何定义某变量为2的n次方（n可变,变量可取2^1,2^2,2^3……2^n)
网友回答
var a:array[1..10000]of longint;
n,i,w:longint;
procedure asd;
var i,x:longint;
beginx:=0;for i:=1 to w do begin
a[i]:=a[i]*2+x;
x:=a[i] div 10;
a[i]:=a[i] mod 10;
end;while x>0 do begin
inc(w);
a[w]:=x mod 10;
x:=x div 10;
end;end;beginreadln(n);
a[1]:=1;
w:=1;for i:=2 to n do asd;
for i:=w downto 1 do write(a[i]);
end.