Помощь - Поиск - Пользователи - Календарь
Полная версия: Обратный код
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи > Задачи на заказ
Strike
Целое число,записанное в виде строки шестнадцатеричных цифр,которой может предшествовать знак.
Записать это число в обратном коде в виде строки шестнадцатеричных цифр. Можно считать что первая цифра исходного числа не превосходит 7.

Цена ваша! Очень СРОЧНО!!!!!!
мисс_граффити
хм... очень срочно - это как? если после выходных - могу взяться.
Jam
Напиши в личку задачу сейчас сделаю.
Strike
Jam написал в личку.
klem4
Решение твоей задачи тут

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


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

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

Вот мой!

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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.