Для хранения растрового изображения размером 128х128 пикселей отвели 4 кбайт памяти.каково максимально возможное число цветов в палитре изображения?

64х128 = 8,192 пикс. выделенный объем делим на кол-во пикселей и получаем число бит на пиксел. т. е. , 3,072/8172=0.375 байта. т. е. , примерно 3 бита. а 3 бита = 8 комбинаций (от 000 до 111). посему - 8 цветов в палитре.

Прежде всего нужно определить остаток от деления исходно числа на 3. для этого, т.к. у вас будет строка вам нужно посчитать сумму отдельных символов строки и взять остаток суммы от деления на 3. если этот остаток равен  : а) 0, то нужно увеличить любую цифру числа на 3 или  6 или  9 и нужно изменить 1 цифру так, что бы остаток от деления на 3 не изменился.  б) 1, то одну цифру числа нужно увеличить на 2 или 5 в) 3, то на 1 или 4 или 7 для того чтобы число было макс. большим нужно брать максимально левую цифру для увеличения. ну, как-то так

// pascalabc.net 3.2, сборка 1387 от 17.02.2017 // внимание! если программа не работает, обновите версию! 1) begin   var a,b: real;   read(a,b);   if (a> 0) and (b> 0) then writeln('произведение равно ',a*b)   else writeln('сумма квадратов равна ',a*a+b*b) end. 2) begin   var a: =arrrandom(readinteger('n=',99); a.println;   for var i: =0 to a.length-1 do       if i.isodd then a[i]: =0       else           if (i+1) mod 5 =0 then a[i]*=2;   a.println; end. пример n= 17 7 -49 -21 84 87 12 27 86 -29 -55 -32 -83 -24 96 -3 -3 -78 7 0 -21 0 174 0 27 0 -29 0 -32 0 -24 0 -6 0 -78 замечание "каждый второй" и "каждый пятый" пересечение на каждом десятом. и получается. что каждый десятый элемент должен быть обнулён. как каждый второй и удвоен, как каждый пятый, так что все равно получим ноль.