Сист по нужно для начала работы с устройством
За<span> 7 вопросов:</span>
1 вопрос: задуманное число больше 50? Например «Да» или
«нет» не важно. 2 вопрос: задуманное число больше 25? Например, опять
«Нет».
3 вопрос: задуманное число больше 12? Пусть опять «Да».
4 вопрос: задуманное число больше 18? Пусть будет «Нет».
5 вопрос: задуманное число больше 14? Пусть опять «Нет».
6 вопрос: задуманное число больше 12? Пусть будет «Да».
7 вопрос: Это число 13? Если да – число
угадано, если нет – то число 14
111001 это 57
<span>1011011 это 91</span>
1)
возьмем число 42
42 больше либо равно 41 - да
42 -12 = 30
30 больше либо равно 41 - нет
значение равно 30
возьмем число 50
50 больше либо равно 41 - да
50 - 12 = 38
38 больше либо равно 41 - нет
значение равно 38
2)
число 41
3)
число 53
4)
число 40
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln(Range(1,ReadInteger,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.