Как - то так
uses crt;
var x,ans:integer;
begin
ans:=0;
read(x);
while x<>0 do
begin
if (x MOD 2)=0 then
ans:=ans+1;
read(x);
end;
writeln(ans);
end.<span>
</span>
149(10)=10010101(2)
Если не задана разрядность, будем обходиться минимально необходимым количеством разрядов.
Тогда переводим в дополнительный код:
1 01101011
Если нужно дотянуть до 2х байт, то:
11111111 01101011
На языке pascal ABC .NET:
var k:integer;
Begin
k:=1;
for var i:=1 to 9 do
if (i mod 2)=0 then else k:=k*i;
write(k);
end.