умоляю вас очень очень Есть хоть какойто умный Человек
ЛЮДИ

1) 700 МБ * 3 фильма = 2100Мб = 2.1 ГБ

2) 2 ГБ = 2048 мб

3) 14.4 Мбит\с = 1,8 Мбайт\с

4) 2048\1.8 = 1137 сек. = 18 мин =  0.3 ч. на скачивание первых 2 Гб фильмов

но осталось ещё 100 мб при скорости 64 кб\сек    ( ну если провайдер честный, и ограничение раньше не включил

 

 

5) 100 мб * 1024 * 8 =   819200 Кбит

6) 819200\64 = 12800 сек. = 213 мин. = 3.5  часа

 

ну а теперь сложим всё )

7)  3.5 + 0.3 = 3.8 часа потребуется ))

 

вот и всё значит ответ 3) 3.87 ч.      у мя 3.8 потому что я округлял, там бесконечные дроби получались ))

1)
var a: array [1..10] of integer;
    i, m: integer;
begin
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then m := m + a[i];
     end;
     writeln(m);
end.

2)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 1) then m := m * a[i];
     end;
     writeln(m);
end.

3)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          m := m + a[i];
     end;
     writeln(m / 10);
end.

4)
var a: array [1..10] of integer;
    i, m, c: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then
          begin
               m := m + a[i];
               c := c + 1;
          end;
     end;
     if (c > 0) then writeln(m / c);
end.

Вас =)