Question

Найдите сумму первых n слагаемых ряда: 1,2,4,8,16,32..

Answer 1

Var k,n,i,sum:integer;
Begin
 Readln(n);
 k:=1;
  for i:=1 to n do
     begin
      sum:=sum+a;
      k:=k*2
    end;
Writeln('Сумма первых ',n,' слагаемых ряда равна ',sum)
End.

Answer 2

Var n,s,i,a:integer;
begin
readln(n);
s:=1;
a:=1;
for i:=2 to n do begin
a:=a*2;
s:=s+a;
end;
writeln(s);
end.