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

[samanta7573620]

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

Помогите tehno036
В двоичном представлении числа инвертировать две последние цифры числа

Вот сама программа, нужно только исправить... не могу понять как инвертировать две последние цифры числа. Там надо использовать xor.

Uses CRT;

var a,b,i,n,mask:word;
begin
clrscr;
write ('a='); readln (a);
mask:=$8000;
for i:=0 to 15 do
begin
b:=mask shr 1;
end;
write;
readln;
end.

 

[Vladimir_S]

Вот сама программа, нужно только исправить...

Ага. Нужно только начать и кончить.
У меня получилось так (не стал всё лепить в одну строку, сохранил для наглядности промежуточные операции):

Var
 a,b,c,d,e,f:LongInt;
Begin
 Write('a= ');
 Readln(a);
 b:= a SHR 2;
 c:= b SHL 2;
 d:= a XOR c;
 e:= d XOR 3;
 f:= c OR e;
 Writeln('result= ',f);
 Readln;
End.

Не знаю, может быть можно и короче.

 

[samanta7573620]

Спасибо, сейчас попробую разобраться!)