Измерение количества информации 3 - вариант
1. Переведите в баты.
15 Кб, 256 Кб, 2500 кб, 72 кб, 340 Мб, 7 Гб.
2. Переведите в килобайты.
7168 байт, 7680 байт, 75 776 байiт, 700000 байт, 2 Мб, 400 Мб, 5 Г6, 300 Гб, 2560 байт, 257 Мб, 30 Гб.
3.
Переведите в мегабайты.
50331648 байт, 56320 K6, 90 Гб, 262 14400 байт, 460800 Кб, 12 Гб.
4. Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объем следующего
высказывания Рене Декарта:
Я мысло, следовательно, существую.
5. Для кодирования секретного сообщения используются 12 специальных символов. При этом символы кодируются
одним и тем же минимально возможным количеством бит. Чему равен информационный объем сообщения длинной
256 символов?
6. Объем сообщения - 7,5 Кбайт. Известно, что данное сообщение содержит 7680 символов. Какова мощность
алфавита?
1.
Сколько различных последовательностей длинной в 7 символов можно составить из цифр 0 и 1?
8. Определите количество информации в книге, набранной на компьютере. Книга содержит 1500 страниц. На каждой
странице — 40 строк, в каждой строке - 60 символов. Запишите ответ в Мб.
9. Сколько дискет понадобится для хранения 86400000 байт информации?

Program textFind;
uses StrUtils;
var text,buffer : String;
var tpos,lastpos,counter,biggest : Integer;
begin
  tpos := 0;
  text := '';
  while(tpos = 0) do begin
    readln(buffer);
    text += buffer;
    tpos := pos('.',buffer)
  end;
  lastpos := 1;
  tpos := PosEx(' ',text,lastpos);
  if tpos = 0 then 
    tpos := PosEx('.',text,lastpos);
  biggest := tpos-1;  lastpos := tpos+1;
  while(not (tpos = 0)) do begin
    tpos := PosEx(' ',text,lastpos);
    if tpos = 0 then
        tpos := PosEx('.',text,lastpos);
    if (tpos-lastpos) > biggest then
        biggest := tpos-lastpos; 
   lastpos := tpos+1;
  end;
  lastpos := 1;  counter := 0;
  tpos := PosEx(' ',text,lastpos);
  if tpos = 0 then
    tpos := PosEx('.',text,lastpos);
  while(not (tpos = 0)) do begin
    if (tpos-lastpos) = biggest then
        counter += 1;
    lastpos := tpos + 1;
    tpos := PosEx(' ',text,lastpos);
    if tpos = 0 then
        tpos := PosEx('.',text,lastpos);
  end;
writeln(counter);
end.

Всё просто, это к слову о том, как считаются циферки в двоичной системе, тут принцип таков:А = 1010Б = 1011Что тут произошло, просто прибавилась 1 единица.Всё что вам тут нужно, это:а. Понять как складываются числа в двоичной системе.б. Прибавить единицу к числу 1011.
Начнём с АВсё просто, нам нужно помнить только две вещи, первая, это то, что у нас всего две цифры, 0 и 1. А вторая, это то, что всё можно решить сложением в столбик)Почему я вспомнил про кол-во цифер, а к тому, что:0 + 0 = 00 + 1 = 11 + 1 = 2 - так не получится) Максимальное число у нас это 1Что же тогда делать?!А вот что, просто перенести на разряд выше, как мы это делали в десятичной системе счислений.Если ты сложишь 1 + 9, у тебя получится 10, то есть ты увеличила разряд второй. Тут так же, следовательно:1 + 1 = 10Проще это понять в столбик:  1
  1
---
10
Надеюсь что теперь понятнее не куда)
Вернемся к БУ нас было число для буквы А 1010, для буквы Б 1011И нужно было сложить 1011 и 1, давай сложим в столбик:  . .1011      11100Смотрим справа на лево 1 + 1 = 10, ноль записали, разряд перенесли выше, там теперь тоже 1 + 1 = 10, снова записали 0 и разряд перенесли выше, 0 + 1 = 1, записали 1, осталась 1 единица, её просто сносим в низ, так и получается 1100ответ: С = 1100