Укажите количество целых чисел в диапазоне от
700700
700 до
800800
800 (включительно), таких, что остаток от деления суммы нечетных цифр числа на
77
7 равен
66
6.

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  a:=Transpose(a);
  Writeln('*** Транспонированная матрица [',n,',',m,'] ***');
  a.Println(4)
end.

Пример
Количество строк и столбцов в матрице: 5 8
*** Исходная матрица [5,8] ***
  17  85 -69  45 -56
  46  83 -82  96   6
  21 -32 -16  -9  78
 -35  45 -98  74  32
 -46 -19 -82  85  76
  53  26  14 -46  26
 -51 -17 -41 -41   2
  19 -35 -34  83 -87

*** Транспонированная матрица [8,5] ***
  17  46  21 -35 -46  53 -51  19
  85  83 -32  45 -19  26 -17 -35
 -69 -82 -16 -98 -82  14 -41 -34
  45  96  -9  74  85 -46 -41  83
 -56   6  78  32  76  26   2 -87

1) 1024 байт =1024 байт
1024 байт > 1000 байт
800 байт < 1024 байт
400 бит = 400 бит
8192 байта < 1024 байта
2) 64 бита=64*8 байт=512 байт
3) 64=2^6?   i=6 бит
4) 40 байт
5)11 Кб=11*1024*8 бит
11*1024*8=11264*i     i=(11*1024*8)/11264=8 бит
N=2^8=256
6) 32=2^5? 
i=5
7) N=16   i=4     N=256   i=8     
8/4=2 (в 2 раза)
8) N=16   i=4   k=50   
I=50*4=200 бит
9) N=256   i=8   k=30*70*5   
I=30*70*5*8=84000 бит
10) 1 Мб=1024*1024*8 бит
1/512 Мб=(1024*1024*8)/512=1024*16 бит
1024*16=2048*i        i=(1024*16)/2048=8 бит
N=2^i     
2^8=256
11) N=256   i=8   k=160*192
I=160*192*8 бит
I=(160*192*8)/(1024*8)=30 Кб