Подсчитать в кбайтах объём текста,если текст содержит 8000 символов,а мощность алфавитов 128 символов.ответ должен быть в кбайтах.(если можно с "дано")
// PascalABC.NET 3.2, сборка 1344 от 22.11.2016 // Внимание! В более ранних версиях работа не гарантируется!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('Вводите элементы массива'); var a:=new integer[m,n]; for var i:=0 to m-1 do for var j:=0 to n-1 do Read(a[i,j]); Writeln('-'*20); foreach var c in a.Cols do Write(c.Sum,' ') end.
Пример Количество строк в массиве: 4 Количество столбцов в массиве: 3 Вводите элементы массива 1 6 -2 0 6 8 -3 6 1 4 6 -3
Дано
мощность алфавита = 128
кол-во символов = 80000
Решение
128 =
7 * 80000 = 560000 бит
переводим в байты
560000/8 = 70000 байт
переводим в Кбайты
70000/1024 = 68,3 Кбайт