Три текстовых сообщения одной кодировки объемом соответственно 1 мбит , 0,5 кбит и 1 кбит объединили в одно. затем из итогового сообщения удалили текст объемом 24 кбит. определите объем получившегося сообщения в байтах
Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=ArrRandom(20,-99,99); a.Println; a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println end.
Замечание: Если стоит задача получить именно массив, а потом его вывести, можно написать так: // PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=ArrRandom(20,-99,99); a.Println; a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray; a.Println end.
1000 кбит + 0.5 кбит + 1 кбит = 1001,5 кбит
1001,5 кбит - 24 кбит = 977.5 кбит
977.5 кбит = 977,5 * 1000 бит = 977500 бит
1 бит = 0.125 байта
977500 бит = 977500 * 0.125 байт = 122187.5 байт