Напишите подробный распорядок дня в виде алгоритма

var

 FileName, Ext: string;

 i, p: Integer;

begin

 Write ('Введите имя файла: ');

 Read (FileName);

 p := 0;

 for i := Length (FileName) downto 1 do begin

   if FileName [i] = '.' then begin

     p := i;

     Break;

   end;

 end;

 if p = 0 then begin

   WriteLn ('Не найдено расширение имени файла!');

   Exit;

 end;

 Ext := LowerCase (Copy (FileName, p + 1, Length (FileName) - p));

 if (Ext = 'htm') or (Ext = 'html') or (Ext = 'php') then

   WriteLn ('Это веб - страница!')

 else if (Ext = 'doc') or (Ext = 'docx') then

   WriteLn ('Это документ Microsoft Word!')

 else if (Ext = 'xls') or (Ext = 'xlsx') then

   WriteLn ('Это документ Microsoft Excel!')

 else if (Ext = 'zip') or (Ext = 'rar') or (Ext = '7z') then

   WriteLn ('Это архив!')

 else if Ext = 'exe' then

   WriteLn ('Это программа!')

 else

   WriteLn ('Что - то другое.');

end.

Задача 1.

Информационный вес одного символа стандартного компьютерного алфавита из 256 символов = 8 бит или 1 байт, т.к. 256 = 2^8

512 = 2 * 2^8, т.е. вес одного символа алфавита из 512 символов будет 16 бит или 2 байта.

1024 * 16 = 16384 бита или 2048 байта.

Задача 2.

1/256 Мб = 1024/256 Кб = 4 Кб или 4096 байт

4096/4096 = 1

Каждый символ в сообщении весит 1 байт или 8 бит.

Мощность алфавита = 2^8 = 256 символов.

Задача 3.

8 Кб = 8192 байта

8192/2048 = 4 байта.

Каждый символ в сообщении весит 4 байта или 32 бит.

Мощность алфавита = 4 * 2^8 = 1024 символа.