Документ объемом 10 мбайт можно передать с одного компьютера на другой двумя способами: а) сжать архиватором, передать архив по каналу связи, распаковать б) передать по каналу связи без использования архиватора. какой способ быстрее и насколько, если – средняя скорость передачи данных по каналу связи составляет 2^23 бит в секунду, – объем сжатого архиватором документа равен 30% от исходного, – время, требуемое на сжатие документа – 18 секунд, на распаковку – 2 секунды?

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');

    readln

end.

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.