Решите как записываеться десятичное число 27 в 16-рично системе счисления ?

1b b - это отаток 11

uses crt;

var

  ar: array[1..19]of integer;

  i, mul, sum, count, min, mini: integer;

begin

  count : = 0;

  sum : = 0;

  mul : = 1;

  randomize;

  for i : = 1 to 19 do

  begin

    ar[i] : = random(13) - 6;

    mul : = mul * ar[i];

    if(ar[i] mod 2 = 0) then

    begin

      textbackground(green);  

      sum : = sum + ar[i];

      count : = count + 1;

    end;

    if(ar[i] = 5) then

      textbackground(red);

    write(ar[i], ' ');

    textbackground(black);  

  end;

  writeln();

  writeln('произведение всех элементов массива = ', mul);

  writeln('сумма четных чисел = ', sum, ', количество = ', count);

  min : = ar[1];

  mini : = 1;

  write('номера элементов, равных 5: ');

  for i : = 1 to 19 do

  begin

    if(ar[i] = 5) then

      write(i, ' ');

    if((ar[i]) < min) then

    begin

      min : = ar[i];

      mini : = i;

    end;

  end;

  writeln();

  writeln('минимальный элемент = ', min, ', его номер = ', mini);

end.

Логическая операция ⊕ - это "исключающее или" (xor в языках паскаль, бейсик и т. а → операция присваивания.тогда a⊕b→a; a⊕b→b; a⊕b→a - это был обмен значениями a ↔ bтеперь по этой же схеме обменяем местами b и с: b⊕c→b; b⊕c→с; b⊕c→b.результат: b→a; c→b; a→cпрограмма для иллюстрации: // pascalabc.net 3.1, сборка 1218 от 12.04.2016begin  var a: =50;   var b: =-20;   var c: =0;   println('исходные значения: a=',a,'b=',b,'c=',c);   a: =a xor b; b: =a xor b; a: =a xor b;   b: =b xor c; c: =b xor c; b: =b xor c;   println('результат обмена: a=',a,'b=',b,'c=',c)end.результат: исходные значения: a= 50 b= -20 c= 0 результат обмена: a= -20 b= 0 c= 50