В двоичном представлении числа инвертировать последнюю цифру.

[Lexman777]

Завтра зачёт, а осталось сделать одну задачку... Вроде и не сложная, но я в программировании не силён. Если кто сможет помогите пожалуйста! Вот задачка:

В двоичном представлении числа инвертировать последнюю цифру. (в задании рассматривается тип word)
Замечание. При работе нельзя использовать массивы для хранения цифр двоичного представления чисел. Все действия необходимо выполнить, используя либо арифметические операции “+” или “-“ либо побитовые операции “shl”, “shr”, “and”, “or” или “xor” языка Pascal.

[Step_UA]

если правильно понял задание...

var n:word;
...
n:=n xor 1;

[Lexman777]

Сообщение от Step_UA

если правильно понял задание...

var n:word;
...
n:=n xor 1;

Да. Всё правильно поняли.

[Lexman777]

Ну кто сможет мне помочь?

[Hacker19_90]

Ну кто сможет мне помочь?

Вам же написали!

var n:word;
...
n:=n xor 1;

Чем вам ещё помочь?

[Вадим Мошев]

n:=n xor 1;

Алгоритмически правильно, так как верно утверждение: A xor 1 = not (A)
Но мне кажется, что в паскале это не прокатит, так как здесь подразумевается логическая запись, а не побитовая.
Я предлагаю такое решение:

if odd(n) // Если n - нечётное
       then dec(n) // n:=n-1
       else inc(n) // n:=n+1

Только и всего.
В двоичном представлении чётное число заканчивается нулём (4[10] = 100[2])
нечётное число заканчивается единицей (7[10] = 111[2])

[Serge_Bliznykov]

Но мне кажется, что в паскале это не прокатит, так как здесь подразумевается логическая запись, а не побитовая.

Вы ошибаетесь. Если в качестве операнда выступают числовые значения (например, тип операнда Byte, Word, Integer, LongInt и т.д.) то операции AND, OR, XOR оперируют именно с БИТОВЫМ представлением числа!

Сообщение от Hacker19_90

Вам же написали!

Чем вам ещё помочь?

Полностью согласен с Hacker19_90, как говорится, тут добавить нечего!