Домашнее задание
Составьте несколько линейных алгоритмов.​

1. Для перевода из десятичной системы счисления в двоичную делим исходное число нацело на 2 (показатель системы в которую переводим) до тех пор, пока частное не станет меньше 2 (показателя системы в которую переводим). Далее с последнего частного (это всегда будет 1, за исключением когда исходное число равно 0) выписываем все остатки.
387:2 = 193 (остаток 1)
193:2 = 96 (остаток 1)
96:2 = 48 (остаток 0)
48:2 = 24 (остаток 0)
24:2 = 12 (остаток 0)
12:2 = 6 (остаток 0)
6:2 = 3 (остаток 1)
3:2 = 1 (остаток 1) Деление закончили, т.к. частное меньше 2.
Начиная с последнего частного выписываем число - 111000011 (2)
387 (10) = 111000011 (2).

2. В данном алфавите у нас 64 символов, т.е. для кодировки данного алфавита приходится 2^6 =64 - 6 бит на 1 символ.
Количество символов 870.
Чтобы найти информационный объем сообщения (текста) I, нужно умножить количество символов (отсчетов) N на число бит на символ (отсчет) K: 
I=N*K = 870*6 = 5220 бит.
В 1 байте 8 бит ⇒    5220 / 8 = 652.5 байт.

3. Дано: 
K=1600*1024=2^14 пикселей; Количество пикселей считается из разрешающей дисплея - произведении пикселей по горизонтали на кол-во по вертикали.
I=24 бит - битовая глубина.
Vвп=2 Мб = 2^24 бит.
Решение:
Используем формулы 
V=K*i;      Объем видеопамяти одной страницы - это произведение количества пикселей на глубину цвета в битах .
V= 2^14*3*2^3=3*2^17
m= Vвп/V, где m – это количество страниц экрана
m= 2^24/3*2^17 = (1/3) * 2^7 ≈ 42,7 страниц

4. Для хранения информации о моно звуке длительностью t секунд, закодированном с частотой дискретизации f Гц и глубиной кодирования B бит требуется t*B*f бит памяти. Для стерео звука это значение умножается на 2 (2 канала).
Получаем:
I=t*B*f  ⇒ f= I/ (B*f)
Переводим в системные единицы:
1 мин = 60 секунд.
1,3 Мбайт= 1,3*2^23 бит

Получаем:
f=1.3*2^23 / (8*60) ≈2.7*2^20 Гц = 2831155,2 ГЦ = 2,8 МГц
Но если честно, для задач школьного уровня - слишком большая частота - проверьте данные.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,1,50);
  a.Println(3); Writeln(3*a.ColCount*'-');
  // начало расчетов
  var s:=0;
  for var i:=0 to n-1 do s+=a[i,n-i-1];
  Writeln('1: S=',s);
  Write('2: Суммы построчно: '); a.Rows.Select(row->row.Sum).PrintLn;
  Write('3: Произведение элементов: ');
  a.ElementsByRow.Aggregate(BigInteger(1),(p,q)->p*q).PrintLn;
  var p:BigInteger:=1;
  for var i:=0 to n-1 do p*=a[i,i];
  Writeln('4: П=',p);
end.