Перевести с десятичной системы счисления в двоичную и наооборот​

31(10) = 11111(2)

51(10) = 110011(2)

16(10) = 10000(2)

11101101(2) = 237(10)

110101(2) = 53(10)

1011011(2) = 91(10)

хотелось бы напомнить, что с=12, f=15, а=10.

имеем:

20с7f_16 = 2·16⁴ + 0·16³ + 12·16² + 7·16¹ + 15·16⁰ = 2·65536 + 12·256 + 7·16 + 15 = 131072 + 3072 + 112 + 15 = 134271_10(f3ao6/4)_16 = (15·16⁴ + 3·16³ + 10·16² + 0·16¹ + 6·16⁰)/4 = (15·65536 + 3·4096 + 10·256 + 6)/4 = (983040 + 12288 + 2560 + 6)/4 = 997894/4 = 249473,5 _10

var a: array [1..30] of integer;

i: integer;

begin

  for i : = 1 to 30 do

  begin

        a[i]: = 5+5*0.05*(i-1)+2;

        writeln(a[i]);

  end.

end.