Из Cообщение "мальчик с тёмными волосами" содержит 2 бита следует: 2^2 =4 (количество мальчиков с тёмными волосами) Из Сообщение "девочка с тём волосами" - 3 бита следует: 2^3 = 8 (количество дев с тём волосами) 8 +4 =12 (количество детей с тёмными волосами) Вероятность того, что будет выбран ученик с тёмными волосами: p(т) =12/32=3/8 вероятность выбора рыжих в три раза меньше: р(рыж) =р(т)/3=1/8 > 8 =2^3 > 3 бита содержит сообщение, что будет выбран рыжий ученик, но тк рыжих мальчиков вообще НЕТ, то это относится только к рыжим девочкам. ОТВЕТ 3 бита.
Var ar:array[1..n] of re; i,j,c:integer; cs:string; begin; for i:=1 to n do begin write('Введите имя участника №',i,':'); readln(ar[i].name); write('Введите результат участника №',i,':'); readln(ar[i].res); end; for i:=1 to n-1 do for j:=i to n do if ar[i].res>ar[j].res then begin; c:=ar[i].res; ar[i].res:=ar[j].res; ar[j].res:=c; cs:=ar[i].name; ar[i].name:=ar[j].name; ar[j].name:=cs; end;for i:=1 to n do writeln(i,' ',ar[i].name,' ',ar[i].res); end.
Пример ввода: Двачевская 23 Персунов 22 Хацуне 3 Пример вывода: 1 Хацуне 3 2 Персунов 22 3 Двачевская 23
следует:
2^2 =4 (количество мальчиков с тёмными волосами)
Из Сообщение "девочка с тём волосами" - 3 бита следует:
2^3 = 8 (количество дев с тём волосами)
8 +4 =12 (количество детей с тёмными волосами)
Вероятность того, что будет выбран ученик с тёмными волосами:
p(т) =12/32=3/8
вероятность выбора рыжих в три раза меньше: р(рыж) =р(т)/3=1/8
> 8 =2^3 > 3 бита содержит сообщение, что будет выбран рыжий ученик, но тк рыжих мальчиков вообще НЕТ, то это относится только к рыжим девочкам.
ОТВЕТ 3 бита.
type
re=Record
name:string;
res:integer;
end;
Const
n=3;
Var
ar:array[1..n] of re;
i,j,c:integer;
cs:string;
begin;
for i:=1 to n do
begin
write('Введите имя участника №',i,':');
readln(ar[i].name);
write('Введите результат участника №',i,':');
readln(ar[i].res);
end;
for i:=1 to n-1 do
for j:=i to n do
if ar[i].res>ar[j].res then
begin;
c:=ar[i].res;
ar[i].res:=ar[j].res;
ar[j].res:=c;
cs:=ar[i].name;
ar[i].name:=ar[j].name;
ar[j].name:=cs;
end;for i:=1 to n do
writeln(i,' ',ar[i].name,' ',ar[i].res);
end.
Пример ввода:
Двачевская
23
Персунов
22
Хацуне
3
Пример вывода:
1 Хацуне 3
2 Персунов 22
3 Двачевская 23