Побитовые операции (PascalABC)

[Poma][a]

Тоды так

Неа..
1101010 -> 10101010
Ваш : 11010010

[Аватар]

Тю, только дошло, что нужно искать третью справа единицу. А я все третью справа позицию мусолил

[NoviceYola]

Поправил то,что мне написали на другом форуме,но нужно исправить,согласно условий выполнения+оформить в виде подпрограмм. p.s. то,что в комментарии я заключил,то мне понятно лишь то,что без этих операции вывод не происходит+нельзя через строку! Понятно,что перевод чисел осуществлялся с помощью строки,но нужно,используя побитовые и алгебраические операции + и -.

uses crt;
  var k, c, n, n2:longint;
  i:integer;
  s:string;
 begin
 
  write('Число: '); read(n);
     {s:= '';
  n2:=n;}
 
  repeat
    if (n2 and 1)=1 then s:='1'+s else s:= '0'+s;
    n2:=n2 shr 1;
  until n2=0;
  writeln('Число 10-->2: ',s);
 
    repeat
    k:=k+(n and 1); 
     n2:=(n2 shl 1)+(n and 1); 
      c:=c+1;
       n:=n shr 1;
    until (k=3) or (n=0);
 
  if k<3 then writeln('Число не имеет 3-х единиц.')
         else begin  n:=n shl 1; 
 
     while c>0 do begin
       n:=(n shl 1)+(n2 and 1);
       n2:=n2 shr 1;
       c:=c-1;
     end;
  end;
      writeln('Новое число после вставки нуля: ', n);
 
  {s:= '';
  n2:=n;}
  repeat
    if (n2 and 1)=1 then s:='1'+s else s:= '0'+s;
    n2:=n2 shr 1;
  until n2=0;
  write('Новое число после вставки нуля 10-->2: ',s);
 end.