100 .на странице 20 строк по 60 символов.на хранение одного символа требуется 8 бит.стопка из 48 листов имеет толщину 1 см. какое количество памяти потребуется для хранения стопки страниц толщиной 40 см? ​

ответ:60÷20=3

3×8=24

48÷24=2

2+1=3

48÷3=16

16+24=40.

Объяснение:

2304000 байт = 2250 Кбайт

Объяснение:

1. Определим количество символов на одной странице

20 × 60 = 1200

2. Определим общее количество символов в стопке толщиной 1 см

1200 × 48 = 57600

3. Определим количество листов в стопке толщиной 40 см

57600 × 40 = 2304000

4. Определим количество байт, требуемое для хранения одного символа

8 бит = 1 байт (по определению байта).

5. Определим общий объем

2304000 × 1 байт = 2304000 байт

6. Представим этот объем в более крупных единицах.

1 Кбайт = 1024 байта.

2304000 / 1024 = 2250 Кбайт

1 Мбайт = 1024 Кбайт

2250 / 1024 ≅ 2.2 Мбайта, но там точно не делится.

Delphivar  a1, a2: array of integer;  n, c, i: integer; procedure PrintDescending(a: array of integer); var i, j, max: integer; begin  for i := 0 to Length(a) - 1 do  begin    for j := 0 to Length(a) - 1 do      if a[j] > a[max] then max := j;    Write(a[max], ' ');    a[max] := -10001;  end; end; begin  //Запрашиваем ввод длины массива:  Write('Введите длину массива: ');  Read(n);    //Устанавливаем длину массивов:  SetLength(a1, n);  SetLength(a2, n);    //Заполняем первый массив случайными числами:  for i := 0 to n - 1 do    a1[i] := Random(201) - 100;    //Заполняем второй массив только нечётными элементами первого:  for i := 0 to n - 1 do    if Abs(a1[i]) mod 2 = 1 then      begin      a2[c] := a1[i];      c := c + 1;    end;    //Урезаем второй массив:  SetLength(a2, c);    //Выводим первый массив:  for i := 0 to n - 1 do    Write(a1[i], ' ');  Writeln;    //Выводим второй массив в порядке убывания:  if c = 0 then Write('Нечётных элементов нет.')  else PrintDescending(a2); end.

Пример работы:

Delphivar  a1, a2: array of integer;  n, c, i: integer; procedure PrintDescending(a: array of integer); var i, j, max: integer; begin  for i := 0 to Length(a) - 1 do  begin    for j := 0 to Length(a) - 1 do      if a[j] > a[max] then max := j;    Write(a[max], ' ');    a[max] := -10001;  end; end; begin  //Запрашиваем ввод длины массива:  Write('Введите длину массива: ');  Read(n);    //Устанавливаем длину массивов:  SetLength(a1, n);  SetLength(a2, n);    //Заполняем первый массив случайными числами:  for i := 0 to n - 1 do    a1[i] := Random(201) - 100;    //Заполняем второй массив только нечётными элементами первого:  for i := 0 to n - 1 do    if Abs(a1[i]) mod 2 = 1 then      begin      a2[c] := a1[i];      c := c + 1;    end;    //Урезаем второй массив:  SetLength(a2, c);    //Выводим первый массив:  for i := 0 to n - 1 do    Write(a1[i], ' ');  Writeln;    //Выводим второй массив в порядке убывания:  if c = 0 then Write('Нечётных элементов нет.')  else PrintDescending(a2); end.

Пример работы: