Делим группу чисел от 1 до 16 на 2 группы. 12345678 и 9 10 11 12 13 14 15 16 Спрашиваем больше ли 8 загаданное число? Допустим ответили, что не больше. Тогда берём первую группу чисел и снова делим на 2 группы. 1234 5678. И снова задаём вопрос о величине числа относительно уже 4. Допустим отвечают, что больше. Теперь берём группу чисел "5678" и снова делим её пополам (56 и 78). Проделываем всё то же самое. Остаётся всего два числа и тут уже Не трудно будет узнать число. Суммируя число вопросов получается 4.
[<EntryPoint>]
let main argv =
let elements =
System.Console.ReadLine().Split(' ')
|> Seq.map (fun x -> System.Int32.Parse x)
|> Seq.mapi (fun i x -> (x, i))
|> Seq.where (fun (x, i) -> x % 2 = 0)
if elements |> Seq.length > 0
then System.Console.WriteLine("{0} {1}", elements |> Seq.last |> fst, (elements |> Seq.last |> snd) + 1)
else System.Console.WriteLine("No results")
System.Console.ReadKey true |> ignore
0