1. в соревнованиях по ориентированию участвуют 430 спортсменов. специальное устройство регистрирует финиш каждого из участников, записывая его номер с использованием минимально возможного количества битов, одинакового для каждого спортсмена. каков будет информационный объём сообщения (в байтах), записанного устройством, после того как финишируют 400 спортсменов?

Для кодирования 430 номеров спортсменов потребуются коды с номерами от 0 до 429. чтобы закодировать в двоичной системе число 429 понадобится или, округляя до ближайшего большего целого, 9 бит. для записи 400 таких номеров потребуется 9х400 = 3600 бит. или, 3600/8 = 450 байт

Программу надо сформатировать и тогда её структура будет видна лучше. а чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой". var   s, k: integer; label   met; begin   s: =-12;   k: =90;   writeln('s=',s,', k=',k);   s: =s+10;   writeln('s=',s); met:   writeln('метка met: ');   k: =k+10; write('k=',k);   if k< 200 then s: =50 else s: =s+k;   writeln(', s=',s);   if k< 200 then goto met;   writeln('результат: s=',s) end. результат выполнения программы: s=-12, k=90 s=-2 метка met: k=100, s=50 метка met: k=110, s=50 метка met: k=120, s=50 метка met: k=130, s=50 метка met: k=140, s=50 метка met: k=150, s=50 метка met: k=160, s=50 метка met: k=170, s=50 метка met: k=180, s=50 метка met: k=190, s=50 метка met: k=200, s=250 результат: s=250

//pascalabc.net версия 3.3.1590 от 03.12.17 //если программа не запускается, то обновите версию begin       var a : = readarrreal('введите температуры за неделю', 7);       writeln('дней за неделю было с положительной температурой = ', a.count(x -> x > 0));       writeln('дней за неделю было с отрицательной температурой = ', a.count(x -> x < 0));       writeln('дней за неделю было с нулевой температурой = ', a.count(x -> x = 0)); end.