9. Придумайте равномерный двоичный код для кодирования сообщения, со-держащего 5 различных букв и пробел: А Б К Н Р

011101001010000010101001011

Объяснение:

_ 000

А 001

Б 010

К 011

Н 100

Р 101

Полная.

"У школы №3 1 сентября в 10:00 будет проведена линейка"

Полезная.

Состав принимаемого лекарства.

Формулы по физике во время экзамена.

Актуальная.

Курс валюты.

Погода на улице, когда вы выходите из дома.

Достоверная.

"Россия выиграла у Испании на ЧМ за счет пенальти."

Данные, записанные в документах.

Точная.

"Земля - шарообразная"

Понятная.

"Завтра на улице вас встретит сильный дождь" (вместо - "Ожидаются 50 мм осадков за 12 ч." )

Объективная.

"Высота этой скалы 100 м." (вместо "Скала довольно высокая").

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  Writeln(s.Inverse)
end.

Пример
Я пишу программу на языке Паскаль
ьлаксаП екызя ан уммаргорп ушип Я

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  Write('Введите два символа СЛИТНО для сравнения их частоты: ');
  var ab:string;
  Readln(ab);
  var a:=ab[1];
  var b:=ab[2];
  var ka:=0;
  var kb:=0;
  for var i:=1 to s.Length do
    if s[i]=a then ka+=1
    else if s[i]=b then kb+=1;
  if ka>kb then Writeln('Символ ',a,' встречается чаще, чем ',b)
  else
    if ka<kb then Writeln('Символ ',a,' встречается реже, чем ',b)
    else
      if ka<>0 then Writeln('Символы ',a,' и ',b,' встречается одинаково')
      else Writeln('Символы ',a,' и ',b,' отсутствуют')
end.

Пример
Введите строку: а роза упала на лапу азора
Введите два символа СЛИТНО для сравнения их частоты: ао
Символ а встречается чаще, чем о