F1=ВП ПР ВП ПР
F2=ВП ПЛ ВП ПЛ
За<span> 7 вопросов:</span>
1 вопрос: задуманное число больше 50? Например «Да» или
«нет» не важно. 2 вопрос: задуманное число больше 25? Например, опять
«Нет».
3 вопрос: задуманное число больше 12? Пусть опять «Да».
4 вопрос: задуманное число больше 18? Пусть будет «Нет».
5 вопрос: задуманное число больше 14? Пусть опять «Нет».
6 вопрос: задуманное число больше 12? Пусть будет «Да».
7 вопрос: Это число 13? Если да – число
угадано, если нет – то число 14
Var
e, a, s: real;
i: integer;
begin
write('Введите точность Е ');
readln(e);
a := 0;
s := a;
i := 0;
repeat
i := i + 1;
a := 1 / sqr(sqr(i));
s := s + a;
until abs(a) < e;
writeln(s);
end.
сообщить учителю и ничего не предпринимать самому....
Минимум 1-8 мегабайта в секунду