Очевидно, в игре нужно задавать "да-нет" вопросы.
Делим интервал пополам, и выясняем, в какой половине задуманное число. Потом делим эту половину опять пополам, и т.д.
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)
Программа:
var x,y:real;
begin
x:=2007;
y:=x/(1+x*x/(3+2*x*2*x*2*x));
writeln('y=',y:5:3);
<span>end.
Блок-схема - в прилагаемом файле.</span>
А10=1997,25=1*10^3+9*10^2+9*10^1+7*10^0+2*10^(-1)+5*10^(-2)
A16=918=9*16^2+1*16^1+8*16^0
A8=145=1*8^2+4*8^1+5*8^0
A2=101010=1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0
Var
i,s,t,koldney:integer;
begin
writeln('введите количество дней');
readln(koldney);
for i:=1 to koldney do
begin
writeln('введите температуру в ', i, ' день');
readln(t);
if t<0 then
s:=s+1;
end;
writeln('количество дней с температурой ниже 0 = ', s);
readln;
end.