Дана

геометрическая прогрессия: 2, 6, 18, 54, ... Найдите сумму первых n элементов

прогрессии, используя оператор repeat.

Question

Тихомира

6 декабря, 15:51

+5

Ответы (1)

Знаешь ответ?

Венцеслав · Answer 1

var s, n:integer;

begin

s:=2;

readln (n);

repeat

s:=s*3;

n:=n-1;

until n=1;

writeln (s);

end.

Данагеометрическая прогрессия: 2, 6, 18, 54, ... Найдите сумму первых n элементовпрогрессии, используя оператор repeat.