Ввелокроссе участвуют 119 спортсменов. специальное устройство регистрирует прохождение каждым из участников промежуточного финиша, записывая его номер с использованием минимального возможного количества бит, одинакового для каждого спортсмена. каков информационный обьём сообщения в битах, записанного устройством, после того как промежуточный финиш прошли 70 велосепидистов.

Известно, что с n бит можно закодировать 2n различных чисел. поскольку 26 < 119 < 27 и для каждого спортсмена число бит одинаково, то для записи каждого из 119 номеров необходимо 7 бит памяти. поскольку промежуточный финиш прошли 70 велосипедистов, то информационный объем сообщения составит 70*7 бит=490 бит.

//1 var   a: array [1..10] of integer;   i: integer; begin randomize; write('исходный массив: '); for i : = 1 to 10 do begin   a[i] : = random(81)-40;   write(a[i], ' '); end; writeln; write('измененный массив: '); for i : = 1 to 10 do begin   if i mod 2 = 0 then a[i] : = sqr(a[i])   else a[i] : = sqr(i);   write(a[i], ' '); end; end. //2 var   a: array [1..10] of real;   i: integer; begin randomize; write('исходный массив: '); for i : = 1 to 10 do begin   a[i] : = random(41)-20;   write(a[i], ' '); end; writeln; write('измененный массив: '); for i : = 1 to 10 do begin   if a[i] < 0 then a[i] : = sqr(a[i]);   if a[i] > 0 then a[i] : = sqrt(a[i]);   write(a[i]: 0: 2, ' '); end; end. //3 var   a: array [1..200] of real;   i, n: byte;   sum: real; begin   write('введите n = ');   readln(n);   sum : = 0;   for i : = 1 to n do   begin       write('з/п за ', i ,' месяц = ');       readln(a[i]);       sum : = sum + a[i];   end;   writeln('общий доход = ', sum: 0: 2); end.

Program psck; var count, comp, num : integer; begin                read(count);         comp: =1;                 while count> 0 do        begin            count: =count-1;             read(num);             if (num div 100 = 0) and (num mod 4 = 0) and (num mod 10 = 4)              then comp: =comp*num;         end;                 write('произведение чисел - ',comp);             end.