Определите количество информации в книге, которая содержит 20 страниц. На каждой странице – 40 строк, в каждой строке – 64 символа. ответ запиши в килобайтах НАДА

51200

Объяснение:

20 страниц умножаем на 40 строк и узнаем что на 20 страницах 800 строк потом эти 800 строк умножаем на 64 и узнаем что 51200

50 Кбайт

Объяснение:

I = К * i, где

I - информационный объём книги (документа)

К - количество символов в книге (документе)

i - информационный вес символа (количество бит, которым кодируется 1 символ)

Дано:

K = 20 страниц * 40 строк * 64 символов = 51 200 символов

i = 1 байт (предположительно)

Найти:

I

I = 51 200 * 1 = 51 200 байт = 50 Кбайт

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

Выполним упрощение:

Мы получили три конъюнкции, соединенные дизъюнкциями. Функция будет истинной при условии истинности хотя бы одной из дизъюнкций. Выписываем соответствующие комбинации (звездочки означаю, что допускается любое значение бита).
х1 х2 х3 х4
0   1   0   0
*    0   1   *
1    *    *  1
Заменяем строки со звездочками на набор строк со всем допустимыми комбинациями битов на месте звездочек.
х1 х2 х3 х4
0   1   0   0
0   0   1   0
0   0   1   1
1   0   1   0
1   0   1   1
1   0   0   1
1   0   1   1 - дубликат
1   1   0   1
1   1   1   1
И удаляем строки-дубликаты:
х1 х2 х3 х4
0   1   0   0
0   0   1   0
0   0   1   1
1   0   1   0
1   0   1   1
1   0   0   1
1   1   0   1
1   1   1   1

Var
  c:array [1..10] of integer;
  i, even, positive, sumLessSix: integer;
begin
  randomize;
  writeln ('Рандомный массив');
  for i:=1 to 10 do begin
    c[i]:= random(20)-10;
    write (c[i],' ');
  end; {for}
  writeln;
  writeln('Произведение четных чисел');
  even:=1;
  for i:=1 to 10 do
    if c[i] mod 2 = 0  then
    even:= even*c[i];
  write(even,' ');
  writeln;
  writeln('Произведение положительных чисел');
  positive:=1;
  for i:=1 to 10 do
    if c[i] > 0 then
    positive:= positive*c[i];
  write(positive,' ');
    writeln;
  writeln('Сумма элементов меньших 6');
  positive:=1;
  for i:=1 to 10 do
    if c[i] < 6 then
    sumLessSix:= sumLessSix+c[i];
  write(sumLessSix,' ');
end.