Просуммировать первые n элементов геометрической прогрессии (2) (не пользуясь формулой для суммы первых n членов прогрессии).
119
221
Ответы на вопрос:
vаг N,I: 0. .МахInt;
А,S: Rеаl;
Begin
Write (‘N=’);
Readln(N);
А:=1;
S:=A;
For I:=2 То N Do
Begin
А:=2*А;
S:=S+A;
End;
Writeln (‘Сумма равна‘,S:6:0);
End.
А,S: Rеаl;
Begin
Write (‘N=’);
Readln(N);
А:=1;
S:=A;
For I:=2 То N Do
Begin
А:=2*А;
S:=S+A;
End;
Writeln (‘Сумма равна‘,S:6:0);
End.
Популярно: Другие предметы
-
kuzyana22.05.2023 05:18
-
Kisyshka18.03.2023 20:14
-
Iiwang666626.05.2021 04:41
-
said9708.12.2020 03:34
-
diman12922.04.2020 17:41
-
mada465318.02.2023 09:24
-
Drocket30.12.2021 20:40
-
evgenscorp130.08.2020 09:01
-
Luba011107.05.2021 08:45
-
vehera08707.10.2020 13:31