Цитата:
Сообщение от samanta7573620
Вот сама программа, нужно только исправить...
|
Ага. Нужно только начать и кончить.
У меня получилось так (не стал всё лепить в одну строку, сохранил для наглядности промежуточные операции):
Код:
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.
Не знаю, может быть можно и короче.