Книга содержит 256 страниц. На каждой странице размещается 32 строк, в каждой строке – 64 символов. Рассчитать объем информации, содержащейся в книге, ответ записать в Кб. Текст записан с кодировки КОИ-8 - 8 бит.

Begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if (a mod i = 0) then
      writeln('> ', i);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

begin
  var a: integer;
  readln(a);
  writeln(Simple(a));
end.

var
  a: integer;

begin
  readln(a);
  for i: byte := length(a.ToString()) downto 1 do
    write(a.ToString()[i]);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

function par(a: integer): string;
begin
  for i: byte := length(a.ToString()) downto 1 do
    result += a.ToString()[i];
end;

  
begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if ((a mod i = 0) and (Simple(a)) and (par(a) = inttostr(i))) then
      writeln('> ', i);
end.

160 байт

Объяснение:

Дано:

K = 4 страницы * 64 символа = 256 символов

N = 32 символа

Найти:

I

32 = 2^i

32 = 2⁵

i = 5 бит

I = 256 * 5 = 1 280 бит = 160 байт

I = K * i

I - информационный объём текстового сообщения (размер файла, содержащего сообщение)

K - количество символов в сообщении

i - информационный вес одного символа (число бит, используемых для записи одного символа)

N = 2^i  

N - мощность алфавита (количество символов в алфавите)

i - информационный вес одного символа (число бит, используемых для записи одного символа)

1 байт = 8 бит