Напишите алгоритм: Имется ли бит на 4-ой позиции некоторого целого числа

Answer 1

Формулировка неоднозначная. Проверка наличия единичного бита на 4-й позиции в двоичном числе, считая справа налево и начиная счет позиций с 1:

var i:integer; begin readln (i) ; writeln (i and 80) end.