С. Товарищи передают друг другу пакет документов объёмом 22 Мбайт. Артём и Антон используют только канал связи, не архивируя документы. Скорость передачи данных — 223 бит/ Михаил и Даниил обмениваются этими же данныхи, используя архиватор. При этом Михаил сжимает данные в , архив за 17 с, передаёт их со скоростью 223 бит/с, а Даниил распаковывает эти данные за 4 с. Объём заархивированных документов составляет 26 % от начального. Выясни разницу во времени передачи документов. (В ответе запиши только число).

1 текст:     

 

(Буква)      (Десятичный код)     (код)

 

 

    С                      243                            11110011

     у                      213                            11010101

    а                      193                             11000001

                           206                            11001110

   ( - )                    45                              00101101

                           208                            11010000

    а                      193                             11000001

                          206                             11001110

 

 

 

2 текст:         (Англ.яз)

 

 

(Буква)            (Десятичный код)     (Двоичный код)

 

 

   I                         73                                01001001 

  B                        66                                01000010

  M                        77                                01001101

 

 

 

 Примечания: ответы даны на ПОКАЗАННЫЕ Вами буквы и знаки.

( - )  - обозначение дефиса.

Английские буквы не кодируются в КОИ-8, используют (не беспокойтесь, это совершенно правильный подход).

Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number > 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.