Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дана
геометрическая прогрессия: 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.