Для этой задачи нужно знать что:
0 + 0 = 0
0 + 1 = 1
1 + 0 = 1
1 + 1 = 10
В итоге получаем
1000000
Точно, конечно, ответить сложно. Но что-то мне подсказывает, что всё же олень. Олень.
Var a,b,c:integer;
begin
readln(a);
b:=10;
while a>0 do
begin
c:=a mod 10;
if (c mod 2<>0) and (c<b) then b:=c;
a:=a div 10;
end;
if b<10 then write(b) else write('В числе нет нечетных цифр');
end.
По формуле или
(N - мощность алфавита, i - вес одного символа)
Вес одного символа бит (округляем в большую сторону так как кусками тут быть не может)
Вес одного символа бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес текста/сообщения
I = K * i (K - кол-во символов, i - вес одного символа)
Отношение объемов информации раз