Дою 60 без правельно тоько сделайте от разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки морзе: –•–•–•––••–••–•–•• при передаче радиограммы было потеряно разбиение на буквы, но известно, что в радиограмме использовались только следующие буквы: (н–•) (к–• –) (и••) (л• –•• )(м––) расшифруйте радиограмму. запишите в ответе расшифрованную радиограмму. 2. статья, набранная на компьютере, содержит 48 страниц, на каждой странице 40 строк, в каждой строке 40 символов. определите размер статьи в кодировке кои-8, в которой каждый символ кодируется 8 битами20 ) 3. сколько единиц в двоичной записи десятичного числа 625? решение.

1.

–•–•–•––••–••–•–••
–• –•– •––•• –• •–•–••
н   к  л     н
–• –• –•– –• •–•• –•– ••
н   н  к   н   л   к   и
–• –• –• –– •• –••–•–••
н   н  н  м и 

2.

>>> 48*40*40
76800
>>> 76800 / 1024
75.0 (кибибайт)

3.

>>> bin(625)
'0b1001110001'
>>> bin(625)[2:].count('1')
5

Если три нуля значащие, значит число начинается с единицы. Поскольку любое число в развернутой записи есть сумма произведений, каждое из которых представляет собой произведение цифры, находящейся на n-й позиции на основание системы счисления, возведенной в степень n-1, то понятно, что чем больше по величине будут цифры в старших разрядах, тем больше будет само число.
В применении к двоичной системе это означает, что слева должны стоять все единицы, а справа - нули.
Получаем 11000(2)=1х2^4+1x2^3=16+8+=24(10) - тут символ ^ означает возведение в степень.
ответ: 24

const

 AOper: array [0..3] of string = ('+', '-', '*', '/');

var

 a, b, Oper: Integer;

 r: Real;

begin

 Randomize;    // инициализация датчика случайных чисел

 a := Random (1001);

 b := Random (1001);

 Oper := Random (4);

 case Oper of

 0: r := a + b;

 1: r := a - b;

 2: r := a * b;

 3:if b <> 0 then begin

     r := a / b;

   end else begin

     WriteLn ('Произошла ошибка при делении на ноль');

     Exit;

   end

 else r := -1;

 end;

 WriteLn (a);

 WriteLn (b);

 WriteLn (Aoper [Oper]);

 if (r >= 0) and (r - Trunc (r) = 0) then begin   // если в результате получилось положительное целое число

   WriteLn ('yes');

   WriteLn (r :6 :0);

 end else

   WriteLn (' no');

 ReadLn;

end.

Объяснение:

r - Trunc (r) // это выделение дробной части числа