Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи на заказ _ Обратный код

Автор: Strike 3.11.2006 1:25

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

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

Автор: мисс_граффити 3.11.2006 3:24

хм... очень срочно - это как? если после выходных - могу взяться.

Автор: Jam 3.11.2006 22:23

Напиши в личку задачу сейчас сделаю.

Автор: Strike 5.11.2006 17:07

Jam написал в личку.

Автор: klem4 5.11.2006 20:39

Решение твоей задачи http://forum.pascal.net.ru/index.php?showtopic=12933&hl=%EF%E5%F0%E2%E0%FF+%F6%E8%F4%F0%E0+%E8%F1%F5%EE%E4%ED%EE%E3%EE+%F7%E8%F1%EB%E0

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

Автор: Jam 6.11.2006 22:47

Цитата
Учитесь пользоваться поиском, 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.