Прикладное по для программирования
// F#
let rec getNumberFromConsole _ =
let str = System.Console.ReadLine()
let mutable number = 0
if System.Int32.TryParse(str, &number)
then number
else getNumberFromConsole null
let rec getCommonNumber number1 number2 commonNumber multiplier =
if number1 > 0 && number2 > 0
then getCommonNumber (number1 / 10) (number2 / 10) (commonNumber + (number1 % 10) * 10 * multiplier + (number2 % 10) * multiplier) (multiplier * 100)
else commonNumber
[<EntryPoint>]
let main argv =
let number1 = getNumberFromConsole null
let number2 = getNumberFromConsole null
let result = getCommonNumber number1 number2 0 1
System.Console.WriteLine result
System.Console.ReadKey true |> ignore
0
<span>
</span>
Один байт-8 цифр.128 64 32 16 8 4 2 1. Суммируй до той степени, пока не выйдет твое число. на месте использованных цифр ставь 1, вместо неиспользованных 0. число 137- 10001001
<span>Клод Шеннон - основатель теории информации в первую очередь. Прожил достаточно долгую плодотворную жизнь(1916 - 2001). Как учёный этот американский математик приложил свои руки и в инженерии, кибернетики, электротехнике, математике и теории информации. Мировую известность ему принесли разработки теории связи кодирования. Отец первой промышленной радиоуправляемой игрушки и первым ввёл понятие "бит" - как информационной единицы измерения. За свои неоценимые заслуги в революционных разработках отмечен многими наградами и премиями, в том числе и Нобелевской премией.</span>