Некоторый алфавит состоит из 16 различных букв. сколько несет информации одна буква этого алфавита?

16 в 10cc = 10000 в 2сс длина числа в 2 сс = 5 ответ 5 битов

1) var   x, n, i: integer;   flag: boolean; begin   read(n);   flag : = false;   for i : = 1 to n do   begin     read(x);     if((x mod 10 < > 1) and (x mod 2 < > 0)) then       begin       flag : = true;       break;     end;   end;   if(flag) then write('yes')   else write('no') end. 2) var   x, n, i, count: integer; begin   count : = 0;   read(n);   for i : = 1 to n do   begin     read(x);     if((x mod 3 = 0) and (x mod 2 < > 0)) then count : = count + 1;   end;   write(count); end.

1. var a,k,i,c: integer; begin c: =0; write('введите количество чисел в последовательности: '); readln(k); for i : = 1 to k do begin write('введите число: '); readln(a); if (a mod 2 = 1) and (a mod 10 < > 1) then c: =c+1 end; if c> 0 then writeln('yes') else writeln('no') end. 2. var a,k,i,c: integer; begin c: =0; write('введите количество чисел в последовательности: '); readln(k); for i : = 1 to k do begin write('введите число: '); readln(a); if (a mod 2 = 1) and (a mod 3 = 0) then c: =c+1 end; writeln(c) end.