Если это элементарное заполнение по принципу 1 сигнал - 1 клетка
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n, m):= ReadlnInteger2('n, m ->');Writeln('Сгенерированная матрица:');
var a:= MatrRandom(n,m);a.Println;
var sumEven:= 0;
var sumOdd := 0;dec(n);dec(m);
for var i:= 0 to n do
if (i+1).isEven then
sumEven:= sumEven + a.Row(i).sum
else
sumOdd := sumOdd + a.Row(i).sum;
Writeln('Cумма на четных строках -> ', sumEven);
Writeln('Cумма на нечетных строках -> ',sumOdd);
end.
<u>Пример:</u>
n, m -> 4 5
Сгенерированная матрица:
62 61 7 15 76
74 84 43 80 4
37 9 40 86 34
45 70 87 30 51
Cумма на четных строках -> 568
Cумма на нечетных строках -> 427
Ответ:
for i in range(10, 99, 2):
Sum= Sum+i
Print(Sum)
Картинка во вложении. Сначала рисуем по красным стрелкам, потом - по синим. Или наоборот.
На один символ информации приходится 100/50=2 байта информации.(2 байта - это 16 бит).
Мощность алфавита составит 2∧16 (два в степени 16)=65536 символов