Представьте себе школьную библиотеку, как смешанную систему. Выделите в ней материальные и нематериальные части.​

Для перевода в любую счислительную систему из десятичной нужно число делить на 2, 8 и 16 соответственно системам. Остаток при делении отмечаешь (если число делится нацело то отмечаешь остаток как ноль). Затем частное от первого деления снова делишь на 2, 8 или 16 соответственно системе счисления. Отмечаешь остаток. И так далее пока не останется в частном то, что уже нельзя делить. Отмечаешь последнее частное. А потом задом наперед (справа на лево) выписываешь последнее частное и за ним все остатки. Это и будет перевод числа в данную систему счисления.
2. a)
    b)
3. a)
    b)
4. a) --> 4 единицы в записи
    b) --> 2 единицы в записи.
5. a) --> 4 нуля в записи
    b) --> 2 нуля в записи

Function IsEqual(n:longint):boolean;
{ возвращает True, если первая и последняя цифры числа равны }
var
  s:string;
begin
  Str(n,s);
  IsEqual:=(s[1]=s[Length(s)])
end;

var
  k:longint;
begin
  Write('Введите натуральное число '); Read(k);
  Write('Первая и последняя цифры введенного числа ');
  if not IsEqual(k) then Write('не ');
  Writeln('совпадают')
end.

Тестовые решения:
Введите натуральное число 15342403
Первая и последняя цифры введенного числа не совпадают

Введите натуральное число 745370007
Первая и последняя цифры введенного числа совпадают