fixer2006
?>

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

Информатика

Ответы

Державина
119 <= 128, т.е. 7 бит/спортсмен
7*70 = 490 бит = 61,25 байт
Мусаев Игоревич371

"...напечатает сначала 2, потом - 6" -- это значит a=2 и b=6?


про пятеричные записи ничего не понял...  :) И ИМХО к чему такие сложности? И для чего нам комп и программа? Я подправил исходную прогу чтобы она выдавала все числа подходящие по условию

var x,a,b: longint;


begin

   for var i := 999 DownTo 100 do begin

       a := 0;

       b := 1;

       x := i;

       while x>0 do begin

           if x mod 2 > 0 then a := a+1 else b := b+(x mod 5);

           x := x div 5;

       end;

       if (a = 2) and (b = 6) then writeln('x = ', i, ' a = ', a, ' b = ',b);

   end;

end.


прога проводит расчет для всх трехзначных чисел от 999 до 100

итого мы видим что максимальное подходящее число это 960

при необходимости прогу можно переделать чтобы она находила только максимальное число.

Plyushchik_Nikita
Алгоритм сортировки строки массива по возрастанию методом прямого выбора может быть представлен так:
1. Просматривая строку массива от первого элемента, найти минимальный элемент и поместить его на место первого элемента, а первый — на место минимального.
2. Просматривая строку массива от второго элемента, найти минимальный элемент и поместить его на место второго элемента, а второй — на место минимального.
3. И так далее до предпоследнего элемента.

Решение:

//Pascal
const
  n = 7;

var
  a: array[1..n, 1..n] of integer;
  i, j, min, ind: integer;

//Заполнение массива сл. числами и вывод на экран
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(100);
      write(a[i, j]:4);
    end;
    writeln;
  end;
 
  //Сортировка строки матрицы прямым выбором
 
  for i := 1 to n - 1 do
  begin
    min := a[4, i];
    ind := i;
    for j := i + 1 to n do
      if a[4, j] < min then
      begin
        min := a[4, j];
        ind := j;
      end;
    a[4, ind] := a[4, i];
    a[4, i] := min;
  end;
  writeln;
 
    //вывод отсортированной строки
  for j := 1 to n do
  begin
    write(a[4, j]:4);
  end;
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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

Популярные вопросы в разделе

sadinuraliev263
озерская_Мария1234
dirzhanov683
Anatolevich667
Lolira64
Panda062000
Диана-Николаевна377
cafegasoil
Anastasiya
araqsyabadalyan1988
violetta152028
Elenabolt77
s9152992722344
mixtabak2
Vladimirovna1370