1. Количество чисел = 2^5 = 32
2. Если символ кодируется одним байтом, то:
150*40*60*1 байт = 150*40*60/1024 Кбайт = 351,5625 Кбайт
3. Память для одного символа = log(2)8 = 3 бита. Количество информации в сообщении = 13*3 = 39 бит.
4. Количество символов = 3*25*60; 1125 байт = 1125*8 бит;
память для одного символа = 1125*8/(3*25*60) = 2 бита.
Количество символов в алфавите = 2^2 = 4
a, b = list(map(float, input().split()))
d = (b - 2 * a + b ** 2) / (4 * (b + a))
print(d)
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrString(5);
var b := a.Select(t -> t.Length).ToArray;
var n := b.Max;
for var i := 0 to 4 do
Writeln(a[i]:n, b[i]:3)
end.
Var
n,d1,d10,d100:integer;
begin
Write('Введите натуральное трехзначное число: '); Read(n);
d1:=n mod 10; d100:=n div 100;
d10:=(n div 10) mod 10;
if (d1 mod 2 = 0) or (d10 mod 2=0) or (d100 mod 2=0)
then Writeln('Есть четная цифра')
else Writeln('Нет четных цифр')
end.