Если актуально через 15 минут бун
//Pascal
var
X: longint;
count: byte;
begin
write('Введите число X: ');
readln(X);
while X <> 0 do
begin
if X mod 10 mod 2 <> 0 then
count := count + 1;
X := X div 10;
end;
writeln('Нечетных = ', count);
readln;
end.
Т.к. , то вес 1 символа – 8 бит.
Мультимедиа - 11 символов.
8*11=88 бит