Var unitsCount,
tensCount,
hundredsCount,
number : integer;
begin
readln(number);
unitsCount := number mod 10;
tensCount := (number div 10) mod 10;
hundredsCount := number div 100;
writeln('Count of units: ', unitsCount);
writeln('Count of tens: ', tensCount);
writeln('Count of hundreds: ', hundredsCount);
writeln('Sum of digits: ', unitsCount + tensCount + hundredsCount);
writeln('Multiplication of digits: ', unitsCount * tensCount * hundredsCount);
<span>end.</span>
Двоичная система счисления не подходит (в ней нет цифры 3)
71(10) = 1013(4)
71(10) = 43(17)
71(10) = 23(34)
71(10) = 13(68)
Ответ: <span>Б 4, 68</span>
<span>Количество информационных событий (сообщений) вычисляется как 2 в степени количества информации (в битах), которое получено в случае, когда произошло одно из этих событий. Т.е. 2 в 6 степени=64 возможных варианта.</span>
Так как в алфавите 32 символа, то на 1 символ необходимо log(2)32=5 бит
На все сообщение 49*5=245 бит
Var i, a, b, c: integer;
begin
readln(a, b);
for i := a to b do c := c + i*i;
writeln(c);
<span>end.
Работает)</span>