1)
150 байт = 150*8 бит = 1200 бит
Количество информации на один символ = 1200/400 = 3 бита
Количество символов в алфавите = 2^3 = 8
2)
Количество символов = 80*55 = 4400
3300 байт = 3300*8 бит
Количество информации на один символ = 3300*8/4400 = 6 бит
<span>Количество символов в алфавите = 2^6 = 64
</span>
3)
Количество символов = 3*80*33 = 7920
6930 байт = 6930*8 бит
Количество информации на один символ = 6930*8/7920 = 7 бит
<span>Количество символов в алфавите = 2^7 = 128</span>
Параметр объекта<span> - признак, характеризующий свойства объекта.
Например:размер, цвет, вкус и т.д.</span>
Упрощение
(A+B)(!A+B) -> A(!A+B)+B(!A+B) A(!A+B) -> !AA+BA !AA -> 0 !AA+BA -> BA B(!A+B) -> !AB+BB BB -> B !AB+BB -> BA(!A+B)+B(!A+B) -> B
таблица истинности
A B F0 0 = 00 1 = 11 0 = 01 1 = 1
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln('*** Исходный массив ***');
var k:=4;
var a:=MatrRandom(k+1,k+1,-99,99);
for var i:=0 to k do a[i,i]:=-1;
a.Println(4); Writeln(4*k*'-');
var s:=a.ElementsByRow; // последовательность, памяти не занимает
Writeln('Количество элементов, оканчивающихся на ноль: ',
s.Where(t->t mod 10=0).Count);
Writeln('Количество отрицательных элементов: ',
s.Where(t->t<0).Count);
Writeln('Количество нулевых элементов: ',
s.Where(t->t=0).Count);
Write('Сумма элементов побочной лиагонали: ');
var sum:=0;
for var i:=0 to k do sum+=a[i,4-i];
Writeln(sum)
end.
