Книга состоит из 600 страниц на каждой странице 36 строк по 64 символа за сколько времени можно передать по сети данную книгу при скорости 64 кб секунду?

объём книги

600*36*64 =   1382400  символов

при 1 байте на символ -   1382400  байт

64 кб/с - это килобиты в секунду?

тогда, при 8 битах в байте, надо передать 

1382400*8 =   11059200  бит

за секунду передаётся 64*1024=   65536  бит

а времени уйдёт

11059200/65536 =   168,75 с

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

  st: array[0..10000]of char;   s,s1: string;   g,g1,i,j,z: longint;   t: char;

begin

  z: =0;

  readln(s);

  readln(s1);

  g: =length(s);

g1: =length(s1);

for i: =1 to g do

for j: =1 to g1 do if s[i]=s1[j] then

begin

  inc(z);

  st[z]: =s[i];

  break;

end;

for i: =1 to z-1 do for j: =i+1 to z do if st[i]> st[j] then

begin

  t: =st[i];

  st[i]: =st[j];

  st[j]: =t;

end;

st[z+1]: ='-';

for i: =1 to z do i st[i]< > st[i+1] then write(st[i],' ');

end.