От разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки Морзе:

–•–•–•– –••–••–•–••

При передаче радиограммы было потеряно разбиение на буквы, но известно, что в радиограмме использовались только следующие буквы:

н–•

к–•–

и••

л•–••

м– –
Расшифруйте радиограмму. Запишите в ответе расшифрованную радиограм

Десятичная  двоичная         восьмеричная           шестнадцатиричная

1)

10                 1010                              12                                      A

18                 10010                             22                                     12

322               101000010                   502                                  142

2)

10                1010      

74                                                         112      

92                                                                                                5C  

Числа снизу обозначают систему счисления

и какая вероятность что пользователь не ошибется?)))

program i_guess_number;
uses crt;
var changes: array [1..2,1..10] of integer;
i,op,n:integer;
s:string;
res:real;

BEGIN
    randomize;
    writeln("Загадайте число");
    n := 0;
    repeat
        n := n+1;
        i := random(10);
        op := random(4);
        
        case op of
            1: s := "Прибавте ";
            2: s := "Отнимите ";
            3: s := "Умножте на ";
            else s := "Поделите на ";
        end;
        
        writeln(s, i);
        changes[1,n] := op; {запоминаем действия}
        changes[2,n] := i;
    until n = 10;
    
    writeln("Что вышло?");
    readln(res);
    
    for i := n downto 1 do { производим обратные действия }
    begin
        case changes[1,i] of
            1: res := res - changes[2,i];
            2: res := res + changes[2,i];
            3: res := res / changes[2,i];
            else res := res * changes[2,i];
        end;
    end;
        
    writeln("Вы загодали ",res);
END.