Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 11л Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 6л Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 1л
Переливаем 1 в 5л. Набираем 16 полностью. В 5 у нас 1л, в 16 у нас 16л
Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 12л Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 7л Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 2л
Переливаем 2 литра в 5, а 16 наполняем. Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 13л Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 8л
Внимание! Если программа не работает, обновите версию!
begin
ArrRandom(100,10,99).Println.Sorted.Println
end.
Пример
36 20 21 96 76 46 14 62 76 59 93 21 78 49 43 60 81 13 75 48 51 11 99 34 61 46 85 55 74 91 76 34 74 26 85 76 69 96 29 45 95 69 28 23 20 77 96 12 72 83 39 29 10 66 68 35 20 87 44 39 61 58 87 85 83 69 47 61 64 66 91 85 83 39 53 82 82 85 23 83 50 82 83 91 61 57 33 17 57 59 66 82 61 90 84 46 81 43 40 51
10 11 12 13 14 17 20 20 20 21 21 23 23 26 28 29 29 33 34 34 35 36 39 39 39 40 43 43 44 45 46 46 46 47 48 49 50 51 51 53 55 57 57 58 59 59 60 61 61 61 61 61 62 64 66 66 66 68 69 69 69 72 74 74 75 76 76 76 76 77 78 81 81 82 82 82 82 83 83 83 83 83 84 85 85 85 85 85 87 87 90 91 91 91 93 95 96 96 96 99