<span>В СЛОВЕ МЕГАБАЙТ 64 бита, т. к. каждая буква - 1 байт, а в каждом байте 8 бит</span>
<span>eabab ПЕРВАЯ ГЛАСНАЯ, А ПОСЛЕДНЯЯ СОГЛАСНАЯ</span>
1) (8)10= (1000)2
(16)10=(10000)2
2)(1010101010)2=(682)10
3) (100)8=(64)10
Program pos;
var
c, n: integer;
begin
c := 0;
while (True) do
begin
readln(n);
if n = 0 then
break
else
if (n mod 2 = 1) and (n >= 1) and (n <= 9) then
c := c + 1;
end;
writeln('количество: ', c);
end.