A[0]=1, A[1]=A[0]+1=1+1=2
Все остальные элементы массива получаются суммированием двух предыдущих элементов: 3, 5, 8, 13
Ответ: 1 2 3 5 8 13
В общем это похоже на принцип связи мобильника, компьютер через многопроводную линию - связывается с другими устройствам.
Const
M = 3;
N = 3;
Var
A:array[1..M,1..N]of real;
B:array[1..N]of integer;
i,j:integer;
Begin
WriteLn('Заполни массив ',M,'x',N);
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
For j:= 1 to N do
For i:= 1 to M do
if (A[i,j]>0) then B[j]:=B[j]+1;
j:=N;
For i:= 1 to N-1 do
if (B[j]>B[i]) then j:=i;
WriteLn(j)
End.
Первое сообщение
32=2 в степени 5 => 80*5=400 бит
Второе сообщение 64=2 в степени 6 => 70*6=420 бит
400 < 420.
Во втором сообщении информации больше