Даны действительные числа a, b, c. Проверить выполняются ли неравенства a < b < c. Delphi

80 * 60 = 4800 символов на 1 странице

4800 * 450 = 2160000 символов в книге

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

в книге 2160000 байт, переведем их в мегабайты

2160000 : 1024 = 2109,375 кб (килобайт)

2109,375 : 1024 = 2,06 мб (мегабайт)

следовательно рукопись на 1 дискету не поместится, для нее необходимо 2 дискеты.

x - информационный вес одного символа

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

размер содержащейся в тексте информации находим по формуле:  

k - кол-во символов в тексте 

амазонка 

- один символ несет 8 битов (1 байт)

- байт в письме амазонки

омега:  

один символ несет 7 битов

байт в письме омеги 

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются

var s: string;

begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.