Есть ответ 👍

Просуммировать первые n элементов геометрической прогрессии (2) (не пользуясь формулой для суммы первых n членов прогрессии).

119
221
Посмотреть ответы 2

Ответы на вопрос:


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.

нормально, а у тебя?

Популярно: Другие предметы