pascal中定义2的n次方pascal中如何定义某变量为2的n次方(n可变,变量可取2^1,2^2,2^3……2^n)

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/18 22:33:58
pascal中定义2的n次方pascal中如何定义某变量为2的n次方(n可变,变量可取2^1,2^2,2^3……2^n)
xROO0*=.E$m2] y3D=Eb/s_ '-yd5^M$LhKl|dk1jD8(tXDfE4tUZ(mͱ($Q ~X

pascal中定义2的n次方pascal中如何定义某变量为2的n次方(n可变,变量可取2^1,2^2,2^3……2^n)
pascal中定义2的n次方
pascal中如何定义某变量为2的n次方(n可变,变量可取2^1,2^2,2^3……2^n)

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;
begin
x:=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;
begin
readln(n);
a[1]:=1;
w:=1;
for i:=2 to n do asd;
for i:=w downto 1 do write(a[i]);
end.