Сколько бит информации мы получили в сообщении о том, что из 128 претендентов на получение приза мы - id564783920211009 от Keranius 09.10.2021 11:12

Question

Информатика: Сколько бит информации мы получили в сообщении о том, что из 128 претендентов на получение приза мы стали 55?

Keranius · Accepted Answer

Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.

Program Sequence;

var old, new : real;

f : boolean;

begin
write('Введите x=');
readln(old);
write('Введите x=');
readln(new);
f:=true;
repeat if new<=old then f:=false;
old:=new;
write('Введите x=');
readln(new);
until new=0;
if f then writeln( 'Последовательность возрастающая')
else writeln( 'Последовательность не является возрастающей');
end.

Сколько бит информации мы получили в сообщении о том, что из 128 претендентов на получение приза мы стали 55?

MOGZ ответил