Какое количество информации несет сообщение о том, что встреча назначена 15 октября? 2. Выяснить, сколько бит информации несет каждое пятизначное число в двоичной системе счисления( отвлекаясь от его конкретного числового значения).
3. В корзине лежат 8 черных шаров и белых в три раза больше, чем черных Сколько информации несет сообщение о том, что достали черный шар.

Режимы открытия файлов Python:

Режим Обозначение

'r' открытие на чтение (является значением по умолчанию).

'w' открытие на запись, содержимое файла удаляется, если файла не существует, создается новый.

'x' открытие на запись, если файла не существует, иначе исключение.

'a' открытие на дозапись, информация добавляется в конец файла.

'b' открытие в двоичном режиме.

't' открытие в текстовом режиме (является значением по умолчанию).

'+' открытие на чтение и запись

Синтаксис:

>>> f = open('text.txt')

>>> f.read(1)

'H'

>>> f.read()

'ello world!\nThe end.\n\n'

>>> f = open('text.txt')

>>> for line in f:

...     line

...

'Hello world!\n'

'\n'

'The end.\n'

'\n'

//Pascal
//Файл fileText.txt должен быть в папке с программой

const
  Vowels = ['e', 'u', 'i', 'o', 'a', 'y', 'E', 'U', 'I', 'O', 'A', 'Y'];
var
  t: text;
  s: char;
  n, min, mult, mult2, count, count2: integer;
begin
  Assign(t, 'fileText.txt');
  Reset(t);
  n := 0; min := 0; mult := 1; count := 0;
  while not eof(t) do
  begin
    count := count + 1;
    while not eoln(t) do
    begin
      read(t, s);
      if s in Vowels then
        inc(n);
      if s in ['0' .. '9'] then
        mult := mult * (Ord(s) - 48);
    end;
    if n > min then
    begin
      min := n;
      mult2 := mult;
      mult := 1;
      count2 := count;
    end;
    readln(t);
    n := 0;
    mult := 1;
  end;
  Close(t);
  write(count2, ' строка. ');
  write('Произведение = ', mult2, '. ');
  writeln('Гласных = ', min);
  readln;
end.