Question

Трехзначное число, записанное в шестнадцатеричной системе счисления, увеличива-ется вдвое от перестановки первой цифры в конец числа. Определите максимальное из таких чисел, записанное в системе счисления по основанию 16.

Answer 1

var
  i,j,k,ix,jx,kx:integer;
  s:string;

function per(x:integer):string;
begin
case x of
  10: result:='A';
  11: result:='B';
  12: result:='C';
  13: result:='D';
  14: result:='E';
  15: result:='F';
  else
    str(x,result);
  end;
end;

begin
for i:=1 to 15 do
  for j:=0 to 15 do
    for k:=0 to 15 do
      if 2*(i*16*16+j*16+k)=j*16*16+k*16+i then
         begin
         ix:=i;
         jx:=j;
         kx:=k;
         end;
s:=per(ix)+per(jx)+per(kx);
writeln(s);     
end. 

В результате работы программы получаем ответ.
Ответ: 6DB