В кейсе лежит 256 разноцветных фломастеров. Сколько информации несет сообщение о том, что из кейса достали зеленый фломастер? Показать полное решение задания.
Язык Паскаль.

Question

Информатика: В кейсе лежит 256 разноцветных фломастеров. Сколько информации несет сообщение о том, что из кейса достали зеленый фломастер? Показать полное решение задания. Язык Паскаль.

Nik228tyto4ki · Accepted Answer

// F# open System let anyNumberSymbol = ? let replaceSymbolOnIndex (str:string) (number:int) (index:int) =     String.Format( {0}{1}{2} , str.Substring(0, index), number, str.Substring(index+1)) let rec getAllValues (valueStr:string) =     let index = valueStr.IndexOf(anyNumberSymbol)     if index -1         then             let newStrings =                 [0..9]                 | Seq.map (fun x - replaceSymbolOnIndex valueStr x index)             newStrings | Seq.collect (fun x - getAllValues...

MOGZ ответил