> -- Trurl писал(а):
> Немного прощеКод:byte := SHORT(SHORT(ORD(BITS(byte) - {7-bit_pos})))Но, вообще говоря, незачем заводить переменную типа BYTE, чтобы сбрасывать в ней биты.[/code]Вот вот. В КП это делается гораздо проще.## Код:
```
VAR a: SET;...
a := a - {bit_pos};
```
