Реализовать алгоритм в виде программы на Pascal вычисления х видов циклических структур-цикл со счётчиком, цикл «Пока», цикл «До»

Program Evg97;
uses crt;
var
  a,b,c:real;
begin
  writeln('++');
  writeln('|               ПОРІВНЯЛКА               |');
  writeln('++');
  write('Введіть число a: '); readln(a);
  write('Введите число b: '); readln(b);
  write('Введіть число c: '); readln(c);
  writeln();
  writeln('++');
  writeln('|               Результат:               |');
  writeln('++');
  if (a=b) or (a=c) or (b=c) then
      writeln('| Хмм...  Деякі (або всі) числа рівні... |')
    else
      if (a<b) and (b<c) then
          writeln('|     Число посередині: b=',b:8:3,'       |')
        else    
          if (a<c) and (c<b) then  
              writeln('|     Число посередині: c=',c:8:3,'       |')
            else
              writeln('|     Число посередині: a=',a:8:3,'       |');
  writeln('++');
end.

Задание 1

Исходя из того, что равновероятных событий может быть 24 - количество часов в сутках

Можно использовать формулу:

N = 2^i

Вместо N подставим количестов возможных равновероятных событий:

24 = 2^i

Ближайшая степень, в которую нужно возвести 2, чтобы получилось 24 - это 5

Значит:

i = 5 бит

ответ 5 бит информации несет сообщение о том, что встреча назначена на 11 часов

Задание 2

В 16 системе счисления каждая цифра несет 4 бита информации, тк

N = 2^i

16 = 2^i

i = 4 бит

Задание 3

Для вычисления количества информации в сообщении о неравновероятном событии используют следующую формулу: I=log(2)(1/p) (логарифм по основанию 2)

I - это количество информации, р - вероятность события

Для буквы О формула примет следующий вид, тк р=0,09:

I = log(2)(1/0,09) = log(2)11,11 = 3,5 бит

Для буквы С формула примет следующий вид, тк р=0,045:

I = log(2)(1/0,045) = log(2)22,22 = 4,5 бит

Для буквы М формула примет следующий вид, тк р=0,026:

I = log(2)(1/0,026) = log(2)38,46 = 5,2 бит

Для буквы Х формула примет следующий вид, тк р=0,009:

I = log(2)(1/0,009) = log(2)111,11 = 6,8 бит

Если округлять то получится (округляем всегда в большую сторону в информатике):

4 бит для буквы О

5 бит для буквы С

6 бит для буквы М

7 бит для буквы Х