Как преобразовать десятичное число в восьмеричное и шестнадцатеричное​

  Чтобы преобразовать десятичное число в шестнадцатеричное нужно делить число на 16 до тех пор, пока ответ не станет меньше делителя.

Например, число 49. 49:16 = 3(1). После деления записываем окончательный ответ и остатки задам наперёд. 49 в шестнадцатеричной = 31. Если число в остатке превышает или равно 10, то тогда заменяется буквами английского алфавита.

  Чтобы перевести в восьмеричную нужно проделать те же действия, что и шестнадцатеричную.  

Объяснение:

4 попрощайся и захлопни дверь

6 вс выключи .

  заголовок выйди из дома

3 закрой квартиру

4 поверни ключ

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

  write('введите элементы массива а: ');

  for i: =1 to 10 do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.