В восьмиричной
30 (8) = 8*3 = 24 (10)
50 (8) = 8*5 = 40 (10)
100 (8) = 8*8*1 + 8*0 + 0 = 64 (10)
<u>Хорошо, когда задают задачи с решением в одну строчку!</u>
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln('Количество "МА" равно ',
ReadlnString('>').MatchValues('МА',RegexOptions.IgnoreCase).Count)
end.
<u><em>Тестовое решение</em></u>
> Мама мыла раму. Маша ела мандарины.
Количество "МА" равно 4
Const N = 50;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/N);
End.
Пример:
Исходный массив: 4 2 -2 -4 -7 7 -9 6 -10 10 -4 -4 -5 3 0 -2 -3 0 -4 9 -1 -4 -2 -4 -9 2 2 -10 -8 -2 -8 -7 6 2 -9 7 2 -10 -10 -4 -9 -7 -2 -10 2 1 -3 6 0 0
Sr = -2.04
Для решения задачи используем формулу I =
Вероятность взять перец = 8/16 = 1/2. Количество информации в сообщении о том, что взят перец I1 = log(2)[1/(1/2)] = log(2)2 = 1 бит
Вероятность взять огурец = 4/16 = 1/4. Количество информации в сообщении о том, что взят огурец I2 = log(2)[1/(1/4)] = log(2)4 = 2 бита
Вероятность взять баклажан = 2/16 = 1/8. Количество информации в сообщении о том, что взят баклажан I3 = log(2)[1/(1/8)] = log(2)8 = 3 бита
Для редиса I4 = I3 = 3 бита
32*62=1984 символа на странице
1984*16=31744 символов всего
31744 символов = 31744 байт англ. текст
31744/2=15872 байт русский текст