Перевести числа из двоичной в восьмеричную, шестнадцатиричную 101011001 и 1011001

Так как 8 и 16 являются целыми степенями 2, то для перевода из двоичной системы в восьмеричную и шестнадцатеричную нужно сгруппировать двоичные цифры по 3 или 4 соответственно (в триады и тетрады), и каждая группа будет обозначать ровно одну цифру новой системы. точно так же для перевода из десятичной в "сторичную" цифры группировались бы по две. в случае нехватки цифр слева можно добавлять нули.

Целая программа на паскале:   const      a: array [1..4, 1..4] of integer =          ((1,2,3,,6,7,,10,11,,14,15,16));   var      i, j: integer;   begin      writeln('matrix: ');       for i : = 1 to 4 do begin          for j : = 1 to 4 do write(a[i,j]: 4);           writeln;       end;       writeln;       writeln('main diagonal sum: ', a[1,1] + a[2,2] + a[3,3] + a[4,4]);   end.

1. var  a,b,c,d: real;   begin  read(a,b);   writeln((b-a)/(2012-1904));   end.2.  var  a: integer; begin readln(a); if  (a  mod  4  =  0)  and  (a  mod  100< > 0)  or  (a  mod  400=0)  then writeln('yes')  else writeln('no'); end.3.  var  n,b: real;   d,t: longint;   begin  read(t,n,b);   for d: =1 to t do  begin  n: =n*(1+b/100);   end;   writeln(n);   end. 4. var  n,b,o: real;   d,t,k: longint;   begin  read(n,b);   o: =n;   while n< o*2 do  begin  n: =n*(1+b/100);   inc(k);   end;   writeln(k);   end.