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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/11 05:40:53
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)

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.