с решением задачи в кумире.

microsoft visual basic 2010(более ранние тоже прокатят)

  dim i as single      private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load              i = val(inputbox("введите число"))              if i > = 0 then                      i = i - 50              else                      i = i + 100              end if              msgbox(i)      end sub

просто на basic

dim i as single

input(i)

if i > = 0 then                      i = i - 50              else                      i = i + 100              end if

print i

end

файл с исходным текстом программы на паскале должен иметь расширение pas.

15 гб = 15360 мбайт = 122880 мбит

32 мин = 1920 с.

скорость = 122880/1920 = 64 мбит/с

заливаем 2 раза по 5л в 9л ведро осталось 1л.переливаем 1л в 9л ведро+5литров=6л,доливаем с 5л ведра 3л, осталось в 5 л ведре 2лпереливаем в9л ведро 2л+5л доливаем=7л  ещё добавляем с 5л ведра 2л  осталось в 5 литровом ведре 3 литра