Question

Составьте программу заполнения одномерного массива А(N)пятью первыми членами геометрической прогрессии(b1=2,q=3)решить в паскале АВС

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
  var a := SeqGen(5, i -> 2 * Power(3, i)).Println;
end.