107340.170166015625 в десячтичной
4561,81,53,1,731,91это то что надо
1 Мбайт =2^23 бита
1024 =2^10
2^23 : 2^10=2^13 бита - объём сообщения
1024 =2^10 cимволов - длина сообщения
2^13 : 2^10 =2^3 =8 бит - один символ
2^8 =256 символов - мощность алфавита (количество символов в алфавите)
// F#
[<EntryPoint>]
let main argv =
let getArray =
let rand = new System.Random();
[1..4] |> Seq.map (fun x -> rand.Next 10)
let A = getArray;
let B = getArray;
let C = A |> Seq.mapi (fun i a -> a * a - (B |> Seq.nth i))
printf "%s" (Seq.fold (fun sum x -> sprintf "%s %d" sum x) "" C)
System.Console.ReadKey true |> ignore
0