Удалить каждое вхождение подпоследовательности 101

@tania. · Регистрация: 28.12.2009

Author24 — интернет-сервис помощи студентам

подскажите пожалуйста!!!!побитовые операции в паскале

Просматривая последовательность битов данного длинного целого от младших к старшим, удалить каждое вхождение подпоследовательности 101, сдвигая все биты слева от удаляемых на 3 вправо. Освобождающиеся биты справа заполнить нулями.

@v1ar · 07.04.2012, 14:10

Pascal

var
  a, b, n: word;
begin
  read(a);
  n := 0;
  b := 0;
  while a <> 0 do
  begin
    if (a and 7) <> 5 then
    begin
      b := b or ((a and 1) shl n);
      n := n + 1;
      a := a shr 1; 
    end
    else a := a shr 3;
  end;
  write(b);
end.

Сообщение от tania.

Освобождающиеся биты справа заполнить нулями.

..."слева" ?), если да, то прога эта

@tania. 2 / 2 / 0 Регистрация: 28.12.2009 Сообщений: 53
		1
	Удалить каждое вхождение подпоследовательности 101 23.03.2010, 20:38. Показов 1362. Ответов 1 Метки нет (Все метки) подскажите пожалуйста!!!!побитовые операции в паскале Просматривая последовательность битов данного длинного целого от младших к старшим, удалить каждое вхождение подпоследовательности 101, сдвигая все биты слева от удаляемых на 3 вправо. Освобождающиеся биты справа заполнить нулями. 0

	07.04.2012, 14:10

Опции темы

Удалить каждое вхождение подпоследовательности 101

Решение