===== 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.
Двойки- 2886
Тройки- 4329
Четверки- 5772
Пятерки- 7215
Шестерки- 8658
Семерки- 10101
Восьмерки- 11544
Девятки- 12987
А,г,б,в)))))))))))))))))))
10 поганок
По формуле получается 2^2=1/P,отсюда P=1/16
Подставляем получается 26-16=10