Паскаль. в зоопарке бегемот съел 10 арбузов. на сколько поправилось животное, если учесть, что минимальный вес арбуза 5000 грамм, максимальный 10000 грамм?

Вариант решения №1:
1)8 МБайт = 8192 КБайт
2) 8192 Кбайт / 4096 Кбайт = 2 - это отношение первого файла,которое мы передавали к второму. Тем самым решение получается из этого таким образом:

Первый файл больше второго в 2 раза. При неизменяемой скорости, второй файл соответственно будет передан в 2 раза быстрее -> 128/2 = 64 сек.

Вариант решения №2:
1) 8 МБайт = 8192 КБайт
2) найдём скорость соединения:

8192 Кбайт / 128 сек = 64 Кб/сек.

3) узнаем время передачи второго файла

4096 Кбайт / 64 Кб/сек = 64 сек.

ОТВЕТ : 64 сек.

Отмечу,что при решении похожих задач некоторые при переводе скорости и других местах вместо 1024 считают как 1000. Из-а этого в решении могут появиться такие ответы (для данной задачи) как 65,536 сек.

Обращайте внимание на то,с какой буквы написана величина! КБ=КБайт = 1024 байт. Если первая заглавная,то считается 2 в степени, то есть как принято в информатике.
кБайт = 1000 байт. Если с маленькой,то приставка кило считается по системе СИ, как в физике и является 10^3.

Const
  MAX_SIZE = 10;
 
var
  a: array[1..MAX_SIZE] of integer;
  i, size: integer;
 
procedure delete_odd_elements();
var i, j: integer;
begin
  i := 1;
  repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
  until i > size;
end;
 
begin
  writeln('Исходный массив: ');
  size := MAX_SIZE;
  for i := 1 to size do
  begin
    a[i] := random(100);
    write(a[i] : 3);
  end;
  delete_odd_elements;
  writeln;
  writeln('Полученный массив: ');
  for i := 1 to size do
    write(a[i] : 3);
end.