Вбассейне 4 дорожки для плавания. тренер сообщил, что группа будет плавать на дорожке номер 3. сколько информации получили спортсмены из этого сообщения?

N= 2^i n = 4 4 = 2^i i = 2 бита информации получат спортсмены из этого сообщения

Интересная ) var i,n : integer; begin   n: =99;   for i: =1 to n do begin        case i of          11..14 : writeln('мне ',i,' лет');           else              case i mod 10 of          1: writeln('мне ',i,' год');           2..4: writeln('мне ',i,' года');           else              writeln('мне ',i,' лет');               end;         end;   end; end.

Var multiplication, summ: real; i: integer; massive = array[1..15] of real; begin multiplication: =1; randomize;     for i: =1 to 15 do     begin       massive[i]: =random(20)-20;       multiplication: =multiplication  * massive[i];         summ: =summ+massive[i];     end;     if  multiplication  > summ     then           begin             writeln('multiplication elements of massive more');         end     else           begin               writeln('summ  elements of massive more');           end; end.