<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
var a := MatrGen(m, n, (i, j)-> j.IsOdd ? 1 : 0);
a.Println(2)
end.
Диод принимает 2 состояния - 1 истина и 0 ложь
1 диод = 2(в первой степени) = 2 значениям;
7 диод = 2(в степени семь) = 128 значений; - можно послать 128 - различных сообщений
1/8 кб = 1024 бита
1024 / 256 = 4 бита весит 1 символ
2^4 = 16 символов