Решите следующие задачи Найдите информационный объем сообщения.

«На следующий урок будет проверочная работа. Каждый символ кодируется 8 битами. ответ выразите в байтах.

Профессор СФУ Георгий Викторович очень строг к своим студентам. На проверку он принимает только те рефераты, информационный объем которых не менее 1 Кбайта. Примет ли он Танин реферат? Текст реферата записан на двух листах, на каждом листе 60 строчек, в каждой строке 32 символа. Текст набран обычной клавиатурой компьютера, на один символ приходится 8 бит.

Сережа и Ваня любят играть в шпионов. Для того, чтобы никто не мог прочитать их послания, они разработали новый язык, в нем есть как буквы, так и слова, выражения, всего алфавит состоит иx 1024 символов. Какую разрядность им нужно взять чтобы закодировать каждый символ этого алфавита? Сколько символов будет содержать сообщение информационный обьём которого 200 байтов.

Begin

    writeln('¶¶¶¶¶¶¶¶¶¶1');

    writeln('¶¶¶¶¶¶¶¶¶¶¶¶1');

    writeln('¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('¶¶__¶¶¶__¶¶¶¶_¶¶¶¶¶¶¶¶');

    writeln('¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶¶_¶¶¶¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('_¶¶1¶¶¶¶_¶¶¶¶¶¶¶¶¶¶1');

    writeln('_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶1');

    writeln('__¶¶_¶¶¶¶¶¶_¶¶¶¶');

    writeln('__¶¶¶__¶¶¶¶¶¶_¶¶¶');

    writeln('__¶¶¶___¶__¶¶¶¶¶_¶¶¶¶');

    writeln('___¶¶¶¶¶_¶_¶¶¶¶¶¶_¶¶¶¶');

    writeln('___¶¶_¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶1');

    writeln('__¶__¶¶¶¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶¶1');

    writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶1¶¶¶¶¶_¶¶¶¶¶');

    writeln('_¶¶_0__0_¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶__¶¶¶1');

    writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶_¶¶¶¶1');

    writeln('_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶_¶¶¶1');

    writeln('__¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶_¶¶¶1');

    writeln('___¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶¶1');

    writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶__¶¶¶¶¶_¶¶¶1');

    writeln('¶¶¶¶¶¶___¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶_¶¶¶¶_¶¶¶¶__¶¶¶¶¶¶¶¶¶¶_¶¶¶_¶¶¶1');

    writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶_¶¶¶¶1');

    writeln('¶_¶¶¶¶¶_¶¶¶¶¶¶¶_¶¶¶¶¶¶¶_¶_¶¶_¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶_¶_¶¶_¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶¶¶1');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶1');

    writeln('___¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶___¶¶¶___¶¶¶¶¶');

    writeln('__¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶');

    writeln('_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('_¶___¶¶¶¶_¶¶¶¶');

    writeln('¶___¶¶¶¶_¶¶¶¶¶¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶1¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶');

    writeln('¶¶¶¶¶¶¶¶¶¶_¶');

    writeln('¶¶¶1¶¶¶¶¶');

    writeln('¶¶1¶¶');

    writeln('¶¶');

    writeln('¶¶');

end.

Подробнее - на -

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.