Вычислите поиазрядную конъюнкцию двоичных чисел 10110011 и 11001100. ответ запишите в десятичной системе счисления.

// pascalabc.net procedure rectanglesquare; var   a,b: double; begin   write('введите через пробел длины сторон прямоугольника: '); read(a,b);   writeln('площадь прямоугоьника равна ',a*b) end; var   i: byte; begin   for i: =1 to 3 do rectanglesquare end. тестовое решение: введите через пробел длины сторон прямоугольника: 3 7 площадь прямоугоьника равна 21 введите через пробел длины сторон прямоугольника: 12.4 15.8 площадь прямоугоьника равна 195.92 введите через пробел длины сторон прямоугольника: 14 12.5 площадь прямоугоьника равна 175

Const       handsfree = false; var       a: array[1..100] of real;       i, n: integer;       sum_pos, sum_neg: real;       k_pos, k_neg: integer; begin       {ввод массива}       if handsfree then               n : = random(20) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100) - 50;                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();             {подсчет}       sum_pos : = 0;       k_pos : = 0;       sum_neg : = 0;       k_neg : = 0;       for i : = 1 to n do       begin               if a[i] > 0 then               begin                       sum_pos : = sum_pos + a[i];                       k_pos : = k_pos + 1;               end;                             if a[i] < 0 then               begin                       sum_neg : = sum_neg + a[i];                       k_neg : = k_neg + 1;               end;       end;       writeln('average (positives) = ', sum_pos / k_pos);       writeln('average (negatives) = ', sum_neg / k_neg); end.