Question

How to bitwise inverse the bits of a number in Pascal

Answer 1

program InvertBitsProgram;

var
    num, invertedNum: Integer;

begin
    num := 153; 
  
    Writeln(BinStr(num, 32));
    Writeln(num);

    invertedNum := not num; // Invert the bits of the number
    
    Writeln(BinStr(invertedNum, 32));
    Writeln(invertedNum);
end.



(*
run:

00000000000000000000000010011001
153
11111111111111111111111101100110
-154

*)

 

70+ SQL courses for beginners and professionals