Var ch: char;
begin
write('Введите символ: '); read(ch);
writeln('Предыдущий символ: ', pred(ch), ' | ', 'Следующий символ: ', succ(ch));
<span>end.</span>
Де іменно розбити клітинки?
1) Все это единицы измерения информации.
1Гб = 1024Мб = 1048576Кб = 1073741824б
1Мб = 1024кб = 1048576б
1Кб = 1024б
2) 1/2кб = 512б = 4096бит
3) на 3-х дюймовую дискету помещается 1,44Мб
1,44*1024/350 = 4,2. но так как учебник не делится, то округляем в меньшую сторону.
тогда на дискету поместится 4 учебника (при условии что 1 учебник имеет объем 350Кб)