в кинозале всего 16×32=512 мест. Сообщение о купленном билете однозначно определяет выбор одного из этих мест. Из уравнения 2 i = 512=29получаем: i=9 бит. Но эту же задачу можно решать иначе. Сообщение о номере ряда несет 4 бита информации, т.к. 24=16. Сообщение о номере места несет 5 бит информации, т.к. 25=32. В целом сообщение про ряд и место несет: 4+5=9 бит информации. Данный пример иллюстрирует выполнение закона активности информации (правило сложения): количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016 begin var n:=ReadInteger('n='); if n<0 then Writeln(n,'! не определено: n<0') else if n=0 then Writeln('0!=1') else begin var p:BigInteger:=1; for var i:=2 to n do p*=i; Writeln(n,'!=',p) end end.
//PascalABC.NET
1)
var
num, sum: integer;
begin
sum := 0;
repeat
read(num);
if (num mod 4 = 0) and (num div 1000 = 0) and (num div 100 <> 0) then
sum := sum + num;
until (num = 0);
write(sum);
end.
2)
var
num, max, n, i: integer;
begin
max := 0;
read(n);
for i := 1 to n do
begin
read(num);
if (num mod 10 = 3) and (num > max) then
max := num;
end;
write(max);
end.