Сколько Кбайт информации содержит сообщение объемом 32 Мбайт​

32000 вроде не точно лаалвдчлрцралащшвов

Объяснение:

х

1. Это двухмерный массив

(TypeError: unsupported operand type(s) for +=: 'int' and 'list')

2. 3x4 ([3][4])

3. Сложение элементов двумерного массива.

Только вот работать не будет, я полагаю здесь должны были складываться все элементы массивов, но на фото он прибавляет к переменной S не числа а массивы. И это выдаёт ошибку, так что...

Я бы сделал это так:

b = [[3, 5, 7, 78], [12, 10, 9, 56], [45, 31, 14, 23]]

s = 0

for i in b:

   for j in i:

       s += j

# Или используя len:

for i in range(len(b)):

   for j in range(len(i)):

       s += b[i][j]

print('s =', s)

# s = 293

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
function Sod(x:integer):integer;
begin
  x:=abs(x); Result:=0;
  while x>0 do begin
    Result+=x mod 10;
    x:=x div 10
    end
end;

begin
  var a:=ArrRandom(ReadInteger('n='),1,999);
  a.Println;
  Write('Минимальный четный, делящийся на три: ');
  var b:=a.Where(x->(x mod 3=0) and x.IsEven);
  if b.Count>0 then Writeln(b.Min)
  else Writeln('не существует');
  Write('Количество элементов с четностью, как у их места: ');
  Writeln(a.Where((x,i)->(x mod 2)=((i+1) mod 2)).Count);
  Write('Число, сумма цифр которого наибольшая: ');
  var i:=a.Select(x->Sod(x)).ToArray.IndexMax;
  Writeln(a.ElementAt(i));
  Write('Искомое количество пар: ');
  Writeln(a.Pairwise.Where(x->x[0].
    IsEven and x[1].IsOdd and (x[1]>x[0])).Count);
end.

Тестовое решение:
n= 15
707 351 221 748 296 205 182 714 849 76 281 53 354 46 217
Минимальный четный, делящийся на три: 354
Количество элементов с четностью, как у их места: 9
Число, сумма цифр которого наибольшая: 849
Искомое количество пар: 3