1. Используя данные таблицы Блюдо

Борщ

Котлета

Каша

Чай

35

40

20

3

Цена

отсортировать блюда по возрастанию цены. Вывести отсортированный вариант списка блюд. 2. Имеется список учеников и результаты трех тестов ( от 0 до 100). Определить средний каждого ученика по трем тестам, вывести список учеников по убыванию

среднего .

3. Известны данные о количестве мальчиков и девочек в нескольких классах.

Отсортировать названия классов по возрастанию процента мальчиков, определить количество классов, к которых мальчиков больше, чем девочек и вывести названия этих классов отдельно

4. Решить задачу, связанную с оценкой экономической деятельности группы предприятий

на основе известных данных:

Название предприятий

• Плановый обьем розничного товарооборота

• Фактический объем розничного товарооборота

Требуется определить:

1) процент выполнения плана каждым предприятием

ii) количество предприятий, недовыполнивших план на 10% и более

ill) наименьший плановый товарооборот IV) упорядочить предприятия по убыванию планового товарооборота.

shift+ ctrl, эти клавиши шифт и контрл расположены в 2 сторонах клавиатуры, слево и справа, имеют специфические названия левый и правый шифт и контрл, особенности заключаются в том что возможна а компьютетре или ноутбуке есть возможность переключения языков шифт и альт, 

название клавиши ереключения регистров capslock , так же есть возможность зажатой левой шифт и любая буква

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

program xxx;

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.

1 способ

применим метод уменьшения в два раза области неопределенности(путь к стелажу выделен жирным шрифтом):

16

8-8

4-4 4-4

2-2 2-2 2-2 2-2

1-1 1-1 1-1 1-1 1-1 1-1 1-1 1-1

мы потратили 4 бита информации на поиск нужного стеллажа, теперь нащдо найти нужную нам полку:

6

3-3

2-1 2-1 

1-1 1 1-1 1

потрачено еще 3 бита информации. всего информации 4+3 равно 7 бит информации. 

2 способ:

воспользуемся формулой: 2

2^i=n

количество информации о нахождении стеллажа:

2^4=16

i=4 бита

количество информации о нахождении полки:

2^i6 поэтому возьмем число 2^i так чтобы результат находился рядом с числом 6. так как если число будет меньше 6 то мы не сможем точно получить информация, то  2^i должно быть больше 6. значит:

2^3=8

i=3

4+3=7 бит информации