Предмет: Информатика,
автор: elenasudakova
Найдите сумму первых n слагаемых ряда: 1,2,4,8,16,32..
Ответы
Автор ответа:
0
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.
begin
readln(n);
s:=1;
a:=1;
for i:=2 to n do begin
a:=a*2;
s:=s+a;
end;
writeln(s);
end.
elenasudakova:
Спасиб
Автор ответа:
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.
Begin
Readln(n);
k:=1;
for i:=1 to n do
begin
sum:=sum+a;
k:=k*2
end;
Writeln('Сумма первых ',n,' слагаемых ряда равна ',sum)
End.
Приложения:
Похожие вопросы
Предмет: Алгебра,
автор: sonakonko29
Предмет: Информатика,
автор: lefinol
Предмет: Химия,
автор: baldychn
Предмет: Геометрия,
автор: niksuperturbo
Предмет: Русский язык,
автор: leysan