Могут быть небольшие ошибки
var a: integer;
begin
readln (a);
if (a mod 2)=0 then
writeln ('да')
else
writeln ('нет');
end.
Шанс выпадения 1 равен 1/6. Всего 6 вариантов, значит i=3 битам. Ответ: 3 бита.
Нужно с конца про нумеровать их(над ними карандашом написать 0,1,2,3,4...)потом 1×2\6 ( 6 писать как например 2в квадрате над верхом с право)(×2 потому что нужно перевести в десятичную из двоичной) получается :1×2\6+0×2\5+0×2\4+0×2\3+1×2\2+1×2\1+0×2\0=64+4+2=70( при умножении на ноль результат ноль,так што умножай то что с единицей!!!)