Работа с битами. Массивы

[Dhon]

Работа с битами. Массивы

Не понимаю, как решить эту задачу. Помогите пожалуйста! tehno010

Ввести последовательность из 8 символов. Если символ есть + - * / %, то заменить в нём четыре младших бита единицами, иначе – заменить 5-й бит нулем. Вывести исходную и преобразованную последовательности в символьной и восьмеричной формах

 

[Евгений]

Pascal:

const cf:string='0123456789ABCDEF';
var m:array[1..8] of char;
    i,n,d,b:word;
    a:char;
    c:set of char;
    s,st:string;
begin
  c:=['+','-','*','/','%'];
  b:=15; d:=239; st:='';
  for i:=1 to 8 do Readln(m[i]);
  Writeln;
  for i:=1 to 8 do Write(m[i]:3);
  Writeln;
  for i:=1 to 8 do
   begin
    s:=''; n:=Ord(m[i]);
    while n>0 do
     begin
      s:=cf[n mod 8+1]+s;
      n:=n div 8;
     end;
    st:=st+'  '+s;
   end;
  Writeln(st);
  Writeln;
  for i:=1 to 8 do
   begin
     if m[i] in c
      then
       begin
        n:=Ord(m[i]) or b; m[i]:=Chr(n)
       end
      else
       begin
        n:=Ord(m[i]) and d; m[i]:=Chr(n)
       end;
   end;
  for i:=1 to 8 do Write(m[i]:3);
  Writeln;
  st:='';
  for i:=1 to 8 do
   begin
    s:=''; n:=Ord(m[i]);
    while n>0 do
     begin
      s:=cf[n mod 8+1]+s;
      n:=n div 8;
     end;
    st:=st+'  '+s;
   end;
  Writeln(st);
  Readln;
end.