Переведите робота в клетку - Б и закрасьте отмеченные клетки. Используйте цикл n раз и
Конструкцию если-то-все.​

type Cl = class
  a:integer;
  constructor Create(b:integer);
  procedure SetVal(b:integer);
  function GetVal:integer;
  procedure GetPrev;
end;

constructor Cl.Create(b:integer);
begin
  a := b;
end;

procedure Cl.SetVal(b:integer);
begin
  a := b;
end;

function Cl.GetVal:integer;
begin
  GetVal := a;
end;

procedure Cl.GetPrev;
var
 Pr, i:integer;
begin
  writeln('Три предыдущих');
  Pr := Pred(a);
  for i := 1 to 3 do
  begin
   writeln(Pr, ' ');
   Pr := Pred(Pr)
  end;
end;

var
  Obj:Cl;
begin
  Obj := Cl.Create(5);
  Obj.GetPrev;
  writeln;
  Obj.Destroy;
end.
 

1)

2101 в двоичной в форме 100000110101 

для него нужно 12 разрядов, а в 2-х байтовой ячейке их 16 поэто дописываем спереди  4 нуля.

ответ: 0000100000110101.

2)

для этого нужно записать число в двоичном виде и записать для него дополнительный код и потом перевести в 16-ю сисему счисления

 0000100000110101  пр.

обратный код это код в котором все 0 заменены на 1, а 1 на 0

 1111011111001010  обр.

чтобы получит дополнительный код нужно прибавить 1

 1111011111001011  доп.

теперь смотрим по 4 разряда и заменяем 1 символом в 16 системе счисления

в 16- системе счисления это F7CB

3)F840 = 63552;