Документ объёмом 30 Мбайт можно передать с одного компьютера на другой двумя А. Сжать архиватором, передать архив по каналу связи, распаковать.

Б. Передать по каналу связи без использования архиватора.

Какой быстрее и насколько, если:

средняя скорость передачи данных по каналу связи составляет 222 бит в секунду;

объём сжатого архиватором документа равен 90% исходного;

время, требуемое на сжатие документа, – 16 секунд, на распаковку – 2 секунды?

В ответе напишите букву А, если быстрее А, или Б, если быстрее Б. Сразу после буквы напишите число, обозначающее, на сколько секунд один быстрее другого.

Так, например, если Б быстрее А на 23 секунды, в ответе нужно написать Б23.

Единицы измерения «секунд», «сек.», «с.» к ответу добавлять не нужно.

1. Живая природа – это все то, что не со­зда­но ру­ка­ми че­ло­ве­ка, и мы сами.
2. Живая и нежи­вая при­ро­да тесно свя­за­ны между собой. Солн­це слу­жит ис­точ­ни­ком тепла и света для живых су­ществ. А еще живым су­ще­ствам необ­хо­дим воз­дух и вода.
3. Если рас­те­ния не по­ли­вать, а жи­вот­ных не кор­мить и не уха­жи­вать за ними, они могут по­гиб­нуть. Все живые ор­га­низ­мы дышат, пьют воду, пи­та­ют­ся, раз­мно­жа­ют­ся.
4. Любой живой ор­га­низм спо­со­бен к росту и раз­ви­тию. На­при­мер, из се­меч­ка вырастает­ де­ре­во, из мла­ден­ца – взрос­лый че­ло­век

var  mas1, mas2: array[0..9] of integer;  t, k, i, j: integer; 
begin  
readln(t);  
readln(k);  
for j := 0 to 1 do  begin   
      if (j = 1) then writeln();        
                 for i := 0 to 9 do    begin      
                          if(j = 0) then begin       
                                  mas1[i] := random(100);        
                                    write(mas1[i], ' ');       
                                    if mas1[i] > t Then mas1[i] := mas1[i] + 4;      
                              end      
                            else 
                               begin       
                                      mas2[i] := random(100);        
                                      write(mas2[i], ' ');       
                                       if mas2[i] > 10 * K Then         
                                            mas2[i] := mas2[i] + K;      
                                end;    
                       end;       
                  for i := 0 to 9 do     
                         if (j = 0) then 
                               write(mas1[i]) 
                        else 
                                write(mas2[i]);    
               writeln();  
           end;  
readln();
end.

))