32. цвет пикселя монитора определяется тремя составляющими: зеленой, синей и красной. под красную и синюю составляющие отвели по 5 бит. сколько бит отвели под зеленую составляющую, если растровое изображение размером 8(8 пикселей занимает 128 байт?

Всего 8*8=64 точки  на кодирование каждой точки требуется 128/64=2 байта = 16 бит. так как под синюю и красную составляющие отвели по 5 бит, то под зеленую составляющую отводится 16-5-5=6 бит

Const     n = 13; var     a: array[1..n] of integer;     i,k,b: integer; begin randomize; k: =0; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(1001)+1000;       write(' ',a[i]);       b: =a[i];       while b div 100 > 0 do             b: =b div 10;       if (b mod 10) mod 2 = 0 then k: =k+1;       end; writeln; writeln('искомое количество: ',k); end.

Алгоритм берем ряд чисел от 10 до 99 и выводим те из них, которые удовлетворяют условию. цифры числа получаем путем нахождения целой части деления числа на 10 (старшая цифра) и остатка от такого деления (младшая). если число кратно 13, то остаток от его целочисленного деления на 13 нулевой. программа ( pascalabc.net 3.2, сборка 1385 от 14.02.2017 ) begin   range(10,99).where(n-> (sqr(n div 10)+sqr(n mod 10)) mod 13=0).println end. результат 15 18 23 32 46 47 51 64 69 74 79 81 96 97