4. Вычислите сумму 1011012 и 5638. Результат представьте в 16-ой системе счисления. А) 1А0 В) 590 С) 10А D) А01
6. Определите разность суммы четных и нечетных цифр в десятичной записи пятеричного числа 3413
10. Укажите наименьшее четырёхзначное шестнадцатеричное число, двоичная запись которого содержит ровно 6 нулей.
А) 40 В) 1000 С) 103F D) 1FC0
11. Переведите число 11001012 в десятичную систему счисления.
А) 101 В) 101 С) 101 D) 101
12. Сколько единиц в двоичной записи числа 77716?
А) 10 В) 9 С) 8 D) 7
19. Для ко¬ди¬ро¬ва¬ния букв К, L, М, N используются четырехразрядные последовательные двоичные числа от 1000 до 1011 со¬от¬вет¬ствен¬но. За¬ко¬ди¬руй¬те таким об¬ра¬зом по¬сле-до¬ва¬тель¬ность сим¬во¬лов KMLN и за¬пи¬ши¬те ре¬зуль¬тат в вось¬ме¬рич¬ном коде
22. Сложите числа BA516 и DF316, сумму разделите на 135 и представьте окончательный результат в 7-ой системе счисления.

Для начала посчитаем сколько символов в твоем предложении (пробелы, знаки препинания, буквы). Их там 28 [Терпение и труд все перетрут]. Как мы знаем, в кодировке Unicode - 1 символ занимает 16 бит памяти. Умножим 28 символов на 16 и получим 448 бит [28*16=448 бит]. Теперь, если это требуется, переведем биты в байты и килобайты. 1 байт памяти занимает 8 бит. Делим 448 бит на 8 получаем 56 [448/8=56 байт]. 1 кбайт памяти, в свою очередь, занимает 1024 байт памяти. Делим 56 байт на 1024 (советую использовать калькулятор) получаем 0,05 кбайт [56/1024=0,0546875].
В ответе пишем одно из получившихся значений, которое требуется написать [448 бит или 56 байт или 0,05 кбайт]

{ Boland Pascal 7.01 }
uses Crt;
const
  n=20;
var
  a,b:array[1..n] of integer;
  i,k:integer;
begin
  ClrScr;
  Randomize;
  Writeln('*** Исходный массив ***');
  k:=0;
  for i := 1 to n do begin
    a[i]:=Random(51)-25;
    Write(a[i]:4);
    if Odd(a[i]) and (a[i]>0) then
      begin Inc(k); b[k]:=a[i] end
  end;
  Writeln;
  if k>0 then begin
    Writeln('*** Сформированный массив ***');
    for i:=1 to k do Write(b[i]:4);
    Writeln
    end
  else Writeln('Нет элементов для формирования выходного массива');
  ReadKey
end.

Тестовое решение:
*** Исходный массив ***
  -3 -16  -9  20  18  11 -25  14 -22 -20 -11  15 -19  20 -16  19  -2  -4  -8 -17
*** Сформированный массив ***
  11  15  19

А вот для сравнения современный вариант программы:
// PascalABC.NET 3.0, сборка 1088
begin
  var n:=ReadInteger('Размер массива=');
  var a:=ArrRandom(n,-25,25);
  Writeln('*** Исходный массив ***',#13#10,a);
  var b:=a.Where(x->(Odd(x) and (x>0)));
  If b.Count>0 then Writeln('*** Сформированный массив ***',#13#10,b)
  else Writeln('Нет элементов для формирования выходного массива')
end.

Тестовое решение:
Размер массива=20
*** Исходный массив ***
[-9,-1,8,-7,13,0,-22,20,18,-15,9,-14,16,15,0,1,9,-17,22,-13]
*** Сформированный массив ***
[13,9,15,1,9]

Исправлено: по " трудящихся" добавлена блок-схема.