Информационная неопределенность (количество возможных результатов события) равна 16. Будем задавать вопросы, на которые можно ответить только «да» или «нет». Вопрос будем ставить так, чтобы каждый ответ приносил 1 бит информации, т.е. уменьшал информационную неопределенность в два раза. Задаем вопросы: - Друг живет выше 8-го этажа? Нет. После этого ответа число вариантов уменьшилось в два раза, следовательно, информационная неопределенность уменьшилась в два раза. Получен 1 бит информации. Друг живет выше 4-го этажа? Да. Число вариантов уменьшилось еще в два раза, получен еще 1 бит информации. Друг живет выше 6-го этажа? Да. После данного ответа осталось два варианта: друг живет или на 7 этаже, или на 8 этаже. Получен еще 1 бит информации. Друг живет на 7-м этаже? Нет. Все ясно. Друг живет на 8-м этаже. Каждый ответ уменьшал информационную неопределенность в два раза. Всего было задано 4 вопроса. Получено 4 бита информации. Сообщение о том, что друг живет на 8-м этаже 16-ти этажного дома несет 4 бита информации.
Procedure TForm1.Button1Click(Sender: TObject); var i1,i2,i3 : Integer; kk : Integer; Chislo : Integer; begin Memo1.Clear; kk := 0; for i1 := 1 to 9 do for i2 := 0 to 9 do for i3 := 0 to 9 do if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then if ( Frac((i1+i2+i3)/7)=0 ) then begin Chislo := i1*100 + i2*10 + i3; if ( Frac(Chislo/7)=0 ) then begin Memo1.Lines.Append(inttostr(Chislo)); inc(kk); end; end; end;
![2. Заполни таблицу [ ] Знаки действия Напиши какой получится результат 1 4**4 2 20/5 3 17/4+2 4 14%5](/tpl/images/4838/6000/f4e5e.jpg)
Задание 1
1) 256
2) 4
3) 8
4) 4
Объяснение:
1) Тут используется оператор возведение в степень - возводит левый операнд в степень правого
2) Здесь используется целочисленное деление это деление в котором возвращается только целая часть результата
3) Возводим в степень 17//4 и умножаем на 2
Буду рад если отметите данный ответ как лучший