В доме 16 подъездов. Сколько бит информации Вы получите, узнав, что нужный Вам человек живет в пятом подъезде? Варианты ответа:4173

ответ:3 бита

Объяснение:

Сообщение, что человек живёт в первом, несёт 4 бита, потому что неопределённость информации уменьшается в 2^4=16 раз, сообщение, что во втором - столько же. Вместе получается 8 бит, плюс операция дизъюнкции (первый ИЛИ второй)

ответ: 4

Объяснение:

N = 2^i

N = 16

16 = 2^i

i = 4

Наверное так

хзхз

Вот программа, довольно понятная, 

комментарии:

lepestkov:=13; - тут можно менять количесто лепестков

fi:=2*3.14*i/lepestkov;

2*Pi - это полный угол 360 градусов. мы делим его на количество лепестков. Таким образом мы получаем угол на который должен идти лепесток.

 

Картинка ромашки во вложении. если такая не пойдет, отмечай как нарушение.

 

uses crt, graph;
var gDriver, gMode, errCode:integer;
i:integer;
lepestkov:integer;
fi,x,y:real;
radius:integer;
begin
gDriver:=Detect;
InitGraph(gDriver, gMode,'');
ErrCode:=GraphResult;
if(GraphResult <> grOK) then
begin
writeln('ne mogu naiti file graphiki');
readln;
end;
setcolor(green);
line(320,200,320,400);
setcolor(yellow);
setFillStyle(SolidFill, yellow);
fillellipse(320,200,15,15);
setFillStyle(SolidFill, white);
setcolor(white);
lepestkov:=13;
for i:=1 to lepestkov do
begin
fi:=2*3.14*i/lepestkov;
for radius:=24 to 60 do
begin
x:=320 + radius*cos(fi);
y:=200 + radius*sin(fi);
fillellipse(round(x),round(y),10,10);
end;
end;
readln;
end.

Код Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses crt; var s1,s2,z1,z2:string;     i:integer; begin z1:='Минск столица Беларуси'; z2:='Беларусь ты моя синеокая';   writeln('Dana stroka: '); writeln(z1); s1:=''; s2:=''; i:=1; while z1[i]<>' ' do       begin       s1:=s1+z1[i];       inc(i);       end; i:=length(z1); while z1[i]<>' ' do       begin       s2:=z1[i]+s2;       dec(i);       end; delete(z1,1,length(s1)); delete(z1,length(z1)-length(s2)+1,length(s2)); write (s2,z1,s1); writeln; writeln('Dana stroka: '); writeln(z2); s1:=''; s2:=''; i:=1; while z2[i]<>' ' do       begin       s1:=s1+z2[i];       inc(i);       end; i:=length(z2); while z1[i]<>' ' do       begin       s2:=z2[i]+s2;       dec(i);       end; delete(z2,1,length(s1)); delete(z2,length(z2)-length(s2)+1,length(s2)); write (s2,z2,s1); readln; end.