1) вводится число n, высислить 2^n

2) вводится число n, вычислить 2^1+2^2+2^n

1)

var

n, i, ss : longint;

begin

readln (n) ;

ss:=1;

for i:=1 to n do

begin

ss:=ss*2;

end;

writeln (ss) ;

end.

2)

var

n, i, ss, sum: longint;

begin

readln (n) ;

ss:=1;

for i:=1 to n do

begin

ss:=ss*2;

sum:=sum+ss

end;

writeln (sum) ;

end.

1.1.

var n, i, st:integer;

begin

write ('n = ') ;

readln (n) ;

st:=1;

for i:=1 to n do st:=2*st;

writeln ('2^', n,' = ', st) ;

end.

1.2.

begin

var n:=ReadInteger ('n = ') ;

writeln (power (2, n)) ;

end.

Пример:

n = 7

128

2.

var n, i, st, s:integer;

begin

write ('n = ') ;

readln (n) ;

st:=1; s:=0;

for i:=1 to n do

begin

st:=2*st;

s:=s+st;

end;

writeln ('s = ', s) ;

end.

Пример:

n = 7

s = 254