Для кодирования одного значка необходимо log(2)13 ≈ 4 бита.Объём сообщения <span>длиной в 666 символов</span>: 666*4 бит = 666*4/8 байт = 333 байта.
101110101=<span><span>373(10), 10111=23(10)
</span></span>Сумма 110001100(2)=<span>
396(10)</span>
//"Школьный" вариант, блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111
Var
s,n,i:integer;
begin
readln(n);
s:=0;
for i:=1 to 3 do
begin;
s:=s+n mod 10;
n:=n div 10;
end;
if s mod 2=0 then writeln('Yes') else writeln('No');
<span>end.
Пример ввода:
123
Пример вывода:
Yes</span>
После выполнения действия получается код: 03526
Х - только паскаль,
y - паскаль+бейсик,
z - только бейсик.
x+y+z = 35,
x+y=25,
y+z=22.
И решаем эту системку.
Вычтем из первого третье
x=35-22=13
И это ответ :)
Только на паскале программируют 13 человек.