Очевидно, в игре нужно задавать "да-нет" вопросы.
Делим интервал пополам, и выясняем, в какой половине задуманное число. Потом делим эту половину опять пополам, и т.д.
1 вопрос: "Число больше 64?" Ответ: "нет" (значит, число между 1 и 64)
2 вопрос: "Число больше 32?" Ответ: "нет" (значит, число между 1 и 32)
3 вопрос: "Число больше 16?" Ответ: "нет" (значит, число между 1 и 16)
4 вопрос: "Число больше 8?" Ответ: "да" (значит, число между 9 и 16)
5 вопрос: "Число больше 12?" Ответ: "да" (значит, число между 13 и 16)
6 вопрос: "Число больше 14?" Ответ: "нет" (значит, число между 13 и 14)
7 вопрос: "Число больше 13?" Ответ: "нет" (значит, число = 13)
Реализация на Excel 2003
лист не защищен, осторожно, не повредить формулы.
Сами формулы отображаются в строке формул.
Var S,E:real;
N:integer;
Begin
Write('E = ');ReadLn(E);
N:=2;
S:=0;
While (N-1)/(N*N)>E do
Begin
S:=S+(N-1)/(N*N);
N:=N+1
End;
WriteLn(S)
End.
Vинф.=вес одной точки*кол-во точек; N(мощность алфавита)=колво цветов в степени i; где i это вес одной точки. N1=1024; i1=10; N2=32; i2=5;
V1/V2=10\5=2/1. Ответ: в 2 раза
Если возникнут вопросы или ошибки в ходе работы программы, пиши в комментариях.