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