На c++ (сорян если будет не понятно)
в 2009 1 января положили x. в каком году(d) будет x3
ввод x d
вывод d

Изначально смотрим что у нас не совпадают еденицы измерения, скорость передачи у нас в БИТАХ в секунду, а размер файла в КИЛОБАЙТАХ. Переводим Килобайты в байты (1 Килобайт=1024 байтам, 1 байт = 8 битов)Следовательно 2000 Килобайт * 1024 = 2048000 байт * 8= 16384000 бит. Скорость передачи данных = объем данных / на время затраченное для передаци этих данных. Следовательно чтобы найти время затраченое для передачи данных надо объем переданных данных (т.е. 2000 Кбайт, которые мы предварительно перевели в биты 16384000 бита) поделить на скорость передачи данных 1024000бит/с.16384000бит / 1024000 Кбит/с = 16 сек. Что собственно и является ответом.

program Geom;

program Test_nn;

{$APPTYPE CONSOLE}

{$R *.res}

uses

 Math;

var

 a: array of Extended;

 n, i, c: Integer;

 x: Extended;

begin

 Write ('Размерность массива = ');

 ReadLn (n);

 SetLength (a, n);

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := (Random (2001) - 1000) / 1000;

   Write (a [i] :7 :3);

 end;

 x := 1;

 c := 1;

 WriteLn;

 for i := Low (a) to High (a) do begin

   if a [i] > 0 then begin

     Write (a [i] :7 :3);

     x := x * a [i];

     Inc (c);

   end;

 end;

 WriteLn;

 WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);

 ReadLn;

end.