Задача 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 символа.
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.