#include <stdio.h>
void main ( void ) {
    unsigned int x = 111;
    unsigned int y = x / 2;
    printf("%i\n", y);
}
55

DECLARE
    x binary_integer := 111;
    y binary_integer;
BEGIN
    y := x / 2;
    dbms_output.put_line( y );
END;
/
56

SQL> DECLARE
  2      x binary_integer := 111;
  3      y binary_integer;
  4  BEGIN
  5      y := trunc(x / 2);
  6      dbms_output.put_line( y );
  7      y := FLOOR(x / 2);
  8      dbms_output.put_line( y );
  9  END;
 10  /
55
55

echo $(( 111 / 2 ))
55

perl -Minteger -e 'print 111/2, "\n"'
55

$ write sys$output 111/2
55

SQL> exec dbms_output.put_line(bit_functions.bit_rsh(111));
55

PL/SQL procedure successfully completed.

create or replace package bit_functions as 
   function int_to_bits (in_val in integer)                return varchar2; 
   function bits_to_int (in_val in varchar2)               return integer; 
   function bit_and     (in_1 in integer, in_2 in integer) return integer; 
   function bit_or      (in_1 in integer, in_2 in integer) return integer; 
   function bit_xor     (in_1 in integer, in_2 in integer) return integer; 
   function bit_lsh     (in_num in integer,
                         in_shft in integer default 1)     return integer; 
   function bit_rsh     (in_num in integer,
                         in_shft in integer default 1)     return integer; 
   end; 
/
show errors; 

create or replace package body bit_functions as 
   function int_to_bits (in_val in integer) return varchar2
   is 
      work_1 number; 
      work_2 number; 
      work_3 number; 
      digit  varchar2(1); 
      accum  varchar2(64); 
   begin 
      if in_val < 0 or trunc(in_val) != in_val then
        raise_application_error(-20000, 'Invalid input value');
      end if;
      accum  := ''; 
      work_1 := in_val; 
      work_2 := in_val; 
      loop 
         work_2 := work_1/2; 
         work_3 := trunc(work_2); 
         if work_2 = work_3 then digit := '0'; 
         else digit := '1'; end if; 
         accum := digit || accum; 
         if work_3 = 0 then exit; end if; 
         work_1 := work_3; 
      end loop; 
      return accum; 
   end; 
   function bits_to_int (in_val in varchar2) return integer
   is 
      i     number; 
      digit number; 
      accum number; 
   begin 
      accum := 0; 
      for i in 1..length(in_val) loop 
         digit := to_number(substr(in_val,i,1)); 
         accum := 2*accum + digit; 
      end loop; 
      return accum; 
   end; 
   function bit_and (in_1 in integer, in_2 in integer) return integer
   is 
      work_1 varchar2(64); 
      work_2 varchar2(64); 
      digit  number; 
      i      number; 
      accum  number; 
   begin 
      if in_1 < 0 or trunc(in_1) != in_1 or in_2 < 0 or trunc(in_2) != in_2 then
        raise_application_error(-20000, 'Invalid input value');
      end if;
      work_1 := int_to_bits (in_1); 
      work_2 := int_to_bits (in_2); 
      accum  := 0; 
      if length(work_1) > length(work_2) then 
         work_2 := lpad(work_2,length(work_1),'0'); 
      end if; 
      if length(work_2) > length(work_1) then 
         work_1 := lpad(work_1,length(work_2),'0'); 
      end if; 
      for i in 1..length(work_1) loop 
         if substr(work_1,i,1) = '1' and substr(work_2,i,1) = '1' then 
            digit := 1; 
         else 
            digit := 0; 
         end if; 
         accum := 2*accum + digit; 
      end loop; 
      return accum; 
   end; 
   function bit_or (in_1 in integer, in_2 in integer) return integer 
   is 
      work_1 varchar2(64); 
      work_2 varchar2(64); 
      digit  number; 
      i      number; 
      accum  number; 
   begin 
      if in_1 < 0 or trunc(in_1) != in_1 or in_2 < 0 or trunc(in_2) != in_2 then
        raise_application_error(-20000, 'Invalid input value');
      end if;
      work_1 := int_to_bits (in_1); 
      work_2 := int_to_bits (in_2); 
      accum  := 0; 
      if length(work_1) > length(work_2) then 
         work_2 := lpad(work_2,length(work_1),'0'); 
      end if; 
      if length(work_2) > length(work_1) then 
         work_1 := lpad(work_1,length(work_2),'0'); 
      end if; 
      for i in 1..length(work_1) loop 
         if substr(work_1,i,1) = '1' or substr(work_2,i,1) = '1' then 
            digit := 1; 
         else 
            digit := 0; 
         end if; 
         accum := 2*accum + digit; 
      end loop; 
      return accum; 
   end; 
   function bit_xor (in_1 in integer, in_2 in integer) return integer 
   is 
      work_1 varchar2(64); 
      work_2 varchar2(64); 
      digit  number; 
      i      number; 
      accum  number; 
   begin 
      if in_1 < 0 or trunc(in_1) != in_1 or in_2 < 0 or trunc(in_2) != in_2 then
        raise_application_error(-20000, 'Invalid input value');
      end if;
      work_1 := int_to_bits(in_1); 
      work_2 := int_to_bits(in_2); 
      accum  := 0; 
      if length(work_1) > length(work_2) then 
         work_2 := lpad(work_2,length(work_1),'0'); 
      end if; 
      if length(work_2) > length(work_1) then 
         work_1 := lpad(work_1,length(work_2),'0'); 
      end if; 
      for i in 1..length(work_1) loop 
         if substr(work_1,i,1) = substr(work_2,i,1) then 
            digit := 0; 
         else 
            digit := 1; 
         end if; 
         accum := 2*accum + digit; 
      end loop; 
      return accum; 
   end; 
   function bit_lsh (in_num in integer, in_shft in integer default 1)
   return integer 
   is 
   begin 
      if in_num < 0 or trunc(in_num) != in_num or in_shft < 0 or trunc(in_shft) != in_shft then
        raise_application_error(-20000, 'Invalid input value');
      end if;
      return power(2,in_shft)*in_num; 
   end; 
   function bit_rsh (in_num in integer, in_shft in integer default 1)
   return integer 
   is 
   begin 
      if in_num < 0 or trunc(in_num) != in_num or in_shft < 0 or trunc(in_shft) != in_shft then
        raise_application_error(-20000, 'Invalid input value');
      end if;
      return trunc(in_num/power(2,in_shft)); 
   end; 
end; 
/
show errors