Ответы на вопрос:
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.
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.
Популярно: Информатика
-
Ольгаok01.03.2023 04:52
-
rishik6514.10.2020 06:19
-
BatsonPlay08.11.2022 05:00
-
sanyasoloveva108.04.2023 09:29
-
nataone713.11.2021 02:14
-
DanielKanafiev03.11.2020 01:30
-
GrigoriiBogdanov02.10.2021 16:11
-
манюня564913.11.2022 11:54
-
girlvikak01.01.2021 23:44
-
velikayadasha11.02.2022 09:55