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

Найдите сумму первых n слагаемых ряда: 1,2,4,8,16,32..
Гость
Ответ(ы) на вопрос:
Гость
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.
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы