Мда запутано , )))))))))))))))))))})))))))))))
По формуле:
где n общее количество пассажиров(1024),
а i - количество информации которое содержит данное сообщение.
1024=2^i
I= 10
Ответ: 10 бит
64·40·64 = 2^6·5·2^3·2^6 = 5 · 2^15
5·2^15 байт = 5·2^5 килобайт = 160 Кб
Получается буква Л
(Использовал декодер)
Program OddNumeric;
var
n, i: integer;
a: array [1..3] of byte;
b: boolean;
begin
Write('Введите трехзначное число: ');
Readln(n);
a[1]:=n div 100; {1 цифра сотен}
a[2]:=(n div 10) mod 10; {2 цифра десятков}
a[3]:=n mod 10; {3 цифра количество единиц}
b:=false;
for i:=1 to 3 do
begin
if (a[i] mod 2)=0 then
b:=true;
end;
if b then
Writeln('В этом числе есть четные цифры')
else
Writeln('В этом числе нет четных цифр');
end.