Главный редактор журнала отредактировала статью, и ее объем уменьшился на 28 страниц. каждая страница содержит 32 строки, а в каждой строке 64 символа. информационный объем до редактирования был равен 2 мбайт. статья представлена кодировке unicode, в которой каждый символ кодируется 2 байтами. определите информационный объем статьи в кбайтах в этом варианте представления unicode после редактирования. нужно !

👇

Ответ:

katiapopovici

16.03.2020

1. Найдем объем одной страницы в килобайтах
При двухбайтной кодировке для размещения символов одной строки потребуется 64×2=128 б, для целой страницы- 32×128=4 096 б или 4096/1024=4 Кб.
2. Найдем, на какую величину уменьшился объем статьи при редактировании
28×4=112 Кб.
3. Найдем информационный объем отредактированной статьи.
2 Мб - 112 Кб = 2×1024-112 = 1936 Кб

4,5(47 оценок)

Открыть все ответы

Ответ:

aimuratsergei1234

16.03.2020

// PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
// Внимание! Если программа не работает, обновите версию!

function aToDec(n:string;k:integer):string;
// Перевод из системы по основанию k в десятичную
begin
var s:='0123456789ABCDEF';
Result:='';
var PointPos:=Pos('.',n);
if PointPos>0 then begin // есть дробная часть
    var sFracPart:=n[PointPos+1:];
    var r:=0.0;
    var p:=k;
    foreach var c in sFracPart do begin
      r+=(Pos(c,s)-1)/p;
      p*=k;
      end;
    Result:=r.ToString[2:]
    end
else PointPos:=n.Length+1;
var pa:=1;
n:=n[:PointPos];
var p:=0;
foreach var c in n.Reverse do begin
    p+=pa*(Pos(c,s)-1);
    pa*=k
    end;
Result:=p.ToString+Result
end;

function DecToa(n:string;k:integer):string;
// Перевод из десятичной системы в систему по основанию k
begin
var s:='0123456789ABCDEF';
Result:='';
var PointPos:=Pos('.',n);
var IntPart:integer;
if PointPos>0 then begin // есть дробная часть
    var FracPart:=Frac(n.ToReal);
    var m:=0;
    while True do begin
      var r:=FracPart*k;
      Result+=s[Trunc(r)+1];
      FracPart:=Frac(r);
      m+=1;
      if (m=15) or (FracPart=0) then break
      end;
    IntPart:=n[:PointPos].ToInteger;
    end
else IntPart:=n.ToInteger;
if Result<>'' then Result:='.'+Result;
while IntPart>0 do begin
    Result:=s[IntPart mod k+1]+Result;
    IntPart:=IntPart div k
    end;
if Result='' then Result:='0';
if Result[1]='.' then Result:='0'+Result
end;

function AtoB(s:string;A,B:integer):string;
// Перевод из системы по основанию A в систему по основанию B
begin
if A=10 then Result:=DecToa(s,B)
else
    if B=10 then Result:=aToDec(s,A)
    else Result:=DecToa(aToDec(s,A),B)
end;

begin
var n:=ReadlnString('Какое число перевести?');
var (a,b):=ReadInteger2('Исходное и результирующее основания:');
Writeln(n,'(',a,') = ',AtoB(n,a,b),'(',b,')');
end.

Пример
Какое число перевести? 345.653
Исходное и результирующее основания: 8 16
345.653(8) = E5.D58(16)

4,4(46 оценок)

Ответ:

dasssshka1

16.03.2020

101001001 010110101 101001010 0101001010 101010100 0101001010 0110011101001001 010110101 101001010 0101001010 101010100 0101001010 0110011101001001 010110101 101001010 0101001010 101010100 0101001010 0110011101001001 010110101 101001010 0101001010 101010100 0101001010 0110011101001001 010110101 101001010 0101001010 101010100 0101001010 0110011101001001 010110101 101001010 0101001010 101010100 0101001010 0110011101001001 010110101 101001010 0101001010 101010100 0101001010 0110011101001001 010110101 101001010 0101001010 101010100 0101001010 0110011101001001 010110101 101001010 0101001010 101010100 0101001010 0110011101001001 010110101 101001010 0101001010 101010100 0101001010 0110011