65536=2^N N - кол-во информации
N=16
15*15*16=3600 бит или 450 байт
#include<iostream>
using namespace std;
int main() {
printf("1 1 1 1 1 1 1 1 1 1\n");
printf("1 1 0 1 1 1 1 0 1 1\n");
printf("1 0 1 0 1 1 0 1 0 1\n");
printf("0 1 1 1 0 0 1 1 1 0\n");
printf("0 1 1 1 1 1 1 1 1 0\n");
printf("1 0 1 1 1 1 1 1 0 1\n");
printf("1 0 1 1 1 1 1 1 0 1\n");
printf("1 1 0 1 1 1 1 0 1 1\n");
printf("1 1 0 1 1 1 1 0 1 1\n");
printf("1 1 1 0 1 1 0 1 1 1\n");
printf("1 1 1 1 0 0 1 1 1 1\n");
getchar();
return 0;
}
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),1,27); a.Println;
var s:=a.Where((x,i)->i.IsEven);
Writeln('Cумма элементов с нечетными номерами: ',s.Sum);
Writeln('Произведение элементов с нечетными номерами: ',
s.Aggregate(BigInteger(1),(x,y)->x*y));
end.
<u>Пример</u>
n= 25
13 6 18 13 14 23 7 3 24 6 6 9 14 8 4 2 14 2 14 22 9 24 19 20 27
Cумма элементов с нечетными номерами: 183
Произведение элементов с нечетными номерами: 167343326631936