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