1. в вагоне метро 128 пассажиров. какое количество информациисодержится в сообщении о том, что на остановке выходит 1 пассажир? 2. сообщение о том, что из корзины с разноцветными шарами (все шарыразного цвета) достали зелёный шар, содержит 6 битов информации.сколько шаров было в корзине? 3. сообщение, записанное буквами 32 символьного алфавита, содержит 160символов. какой объём информации оно несет? ​

var N, i, a, m:integer;

c:boolean;

begin

 writeln('Введите количество участников');

 readln(N);

 if ((N < 1) or (N >50))then begin

   writeln('Ошибка');

   exit;

 end;

 m := 0;

 c := false;

 for i:=1 to N do begin

   writeln('На сколько во правильно ответил ',i,' участник:');

   readln(a);

   if ((a < 0) or (a > 20)) then begin

     writeln('Ошибка');

     exit;

   end;

   

   if (a = 0) then

     c := true;

   

   if (a > m) then

     m:= a;

 end;

 writeln('Количество во на которые ответил победитель правильно: ', m);

 if (c = false) then

   writeln('Есть ли участники, которые не ответили ни на один во правильно: NO')

 else write('Есть ли участники, которые не ответили ни на один во правильно: YES');

 

end.

Объяснение:

Рассмотрим первый вариант 1918

Он нам не подходит, почему?

Потому что, числа написаны в порядке убывания, а должны быть в порядке возрастания.

Рассмотрим второй  вариант 218

Он нам не подходит, почему?

Да, числа записаны в порядке возрастания, НО, во втором условии сказано: вычислить сумму последних двух цифр

А цифра у нас одна, 0218 быть такого не может, нет такого числа.

Рассмотрим третий  вариант 1212

Он нам не подходит, почему?

Первые два и последние два числа одинаковы, и не записаны в порядке возрастания.

Рассмотрим четвертый вариант 1218

Он нам подходит, почему?

Потому что, они записаны в порядке возрастания, и соответствуют первому и второму условию.