Пусть дано какое-то число. необходимо обнулить некоторые биты, не трогая все остальные, за минимальное количество операций. по идее, можно сделать так a = a and (not (1001)); поставив единицы на места, которые нужно обнулить. но можно как-то покороче? (да, это получится длинно) язык человеческий или паскаль.

Пусть нужно обнулить какой-либо бит в переменной типа byte (например, бит 3). Определим сначала число, содержащее единицы во всех битах, кроме третьего. Максимальное число, которое можно записать в тип byte, равняется 255. Чтобы в нем обнулить третий бит, вычтем из этого числа третью степень числа 2 (255-8=247). Если это число логически умножить на a, то его единицы никак не скажутся на состоянии переменной a, а нуль в третьем бите независимо от значения третьего бита переменной a даст в результате 0. Итак, имеем a:= a and (255-8). Аналогично можно обнулить несколько битов.