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