Сколько времени потребуется для передачи текста книги со скоростью 24 КБ/с , если​

Слишком индивидуальный вопрос, у каждого своё мнение. Ну так уж и быть, напишу своё. Перспектива безусловно есть, ибо если вспомнить то, что было 10 лет назад, то явно можно сказать, что IT индустрия поднялась очень высоко. Могу описывать всё по отдельности, но зачем это всё нужно, напишу про самую главную часть - интернет. Само собой, это будет нечто большее, нежели сегодня. Все сайты и сервисы будут тесно завязанны социальными сетями, вплоть до кредитных карт.
Очень медленно, но уже практически все перейдут на IPv6, тем самым расширяя сеть до бесконечности. Внешний адрес теперь будет практически у каждого устройства, включенного в сеть. 
Поисковые машины, с развитием кибернетики станут умнее, ранжировка поисковых запросов станет намного эффективнее, находить информацию станет всё проще и быстрее. Такие вещи, как голосовой поиск, станут более популярны и эффективны. И это только интернет. Но есть и другая сторона медали. Паспорта и даже ваши данные - всё это, через каких-то 10-15 лет полностью уйдут в сеть, а обычному человеку ничего не останется, как доверять третьим лицам. Тоесть об анонимности можно забыть.

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
type
  Point=record
  x,y:real
  end;

function GetPoint(c:char):Point;
begin
  Writeln('Введите координаты точки ',c,':');
  Read(Result.x,Result.y)
end;

function Line(A,B:Point):real;
begin
  Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;

function SqTriangle(pA,pB,pC:Point):real;
begin
  var a:=Line(pB,pC);
  var b:=Line(pA,pC);
  var c:=Line(pA,pB);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    var p:=(a+b+c)/2;
    Result:=sqrt(p*(p-a)*(p-b)*(p-c))
    end
  else Result:=0
end;

begin
  var A:=GetPoint('A');
  var B:=GetPoint('B');
  var C:=GetPoint('C');
  Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.

Тестовое решение:
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975