Дана
геометрическая прогрессия: 2, 6, 18, 54, … Найдите сумму первых n элементов
прогрессии, используя оператор repeat.
Ответы
Ответ дал:
0
var s,n:integer;
begin
s:=2;
readln(n);
repeat
s:=s*3;
n:=n-1;
until n=1;
writeln(s);
end.
begin
s:=2;
readln(n);
repeat
s:=s*3;
n:=n-1;
until n=1;
writeln(s);
end.
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад