Дана

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

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

Question

Катюля

23 октября, 04:18

+4

Ответы (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.