Обратный код Опции

[Strike]

Целое число,записанное в виде строки шестнадцатеричных цифр,которой может предшествовать знак.
Записать это число в обратном коде в виде строки шестнадцатеричных цифр. Можно считать что первая цифра исходного числа не превосходит 7.

Цена ваша! Очень СРОЧНО!!!!!!

[Jam]

Учитесь пользоваться поиском, Jam вот научился видимо ... dry.gif Хотя платить деньги за решенные задачи это ваше дело.

Во первых я здесь не искал! Во вторых я все задачи решаю за 10 рублей! И в третьих этому человеку все сделали бесплатно и с моей помощью! Вот так!

И вообще у вас там код другой!!!

Вот мой!

var
  str : string;
  i, n, k : integer;
  digits : string = '0123456789ABCDEF';
begin
  Writeln('Vvedite number:');
  Readln(str);
  n := Length(str);
  i := 1;
  if (str[1] = '-') then
     Inc(i);
  while (i <= n) do
  begin
      k := pos(str[i], digits);
      str[i] := digits[16 - k + 1];
      Inc(i);
  end;
  writeln('Result:');
  writeln(str);
  readln; 
end.