Question

Даю 30 баллов за верно решенное задание.

1. заполните массив степенями числа 2, начиная с конца, так чтобы последний эле-мент массива был равен 1, а каждый предыдущий был в 2 раза больше следующего. Например: 32 18 8 4 2 1

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Длина массива:');

 var a := new BigInteger[n];

 var k := BigInteger.One;

 for var i := n-1 downto 0 do

 begin

   a[i] := k;

   k *= 2

 end;

 a.Println  

end.