Обозначим буквами Я - яблоки Г - груши Ж - жёлтые З - зелёные Б - большие М - маленькие
Всего теоретически возможно 8 видов фруктов: ЯБЖ ЯБЗ ЯМЖ ЯМЗ ГБЖ ГБЗ ГМЖ ГМЗ Не было маленьких груш и маленьких зеленых яблок, значит ГМЖ, ГМЗ и ЯМЗ вычёркиваем. Остаётся 5 видов: ЯБЖ ЯБЗ ЯМЖ ГБЖ ГБЗ Теперь считаем: 1) всего было 25 + 17 = 42 фрукта. Из них больших 32, а маленьких 10. Значит ЯМЖ = 10 2) всего жёлтых 28, значит зелёных 42 - 28 = 14, из них яблок на 2 больше, чем груш. Значит ЯБЗ = 8, а ГБЗ = 6 3) всего яблок 25, из них маленьких 10, значит больших 25 - 10 = 15. То есть ЯБЖ + ЯБЗ = 15, откуда ЯБЖ = 15 - ЯБЗ = 15 - 8 = 7 ответ: больших жёлтых яблок было 7 штук
Её изобрёл Дуглас Карл Энгельбарт из Стэнфордского исследовательского института. Первая мышь выглядела как деревянная коробочка, которая перемещалась по столу на колёсиках, отсчитывая их обороты и развороты. Затем эта информация вводилась в компьютер и управляла перемещением курсора на экране. Энгельбарт не может припомнить, кому принадлежит авторское право на название устройства: "Устройство выглядело как мышь с хвостом, и мы все в лаборатории его так и называли". Отметим, что Энгельбарт работал над созданием манипулятора не один: он является автором идеи и разработчиком концепции, но само устройство сделал не он. Первая мышь была сделана руками аспиранта по имени Билл Инглиш (Bill English), а присоединившийся позднее Джеф Рулифсон (Jeff Rulifson) существенно улучшил конструкцию мыши и разработал для неё программное обеспечение. В архивах Стэнфордского университета хранится учебный фильм 1968 года, в котором демонстрируется первая компьютерная мышь и её потрясающие для того времени возможности. Сейчас Дуглас Энгельбарт мог бы быть богаче и известней Билла Гейтса, но он сознательно "ушёл в тень" и о нём мало кто вспоминает. В 68-м он получил от работодателей за своё изобретение чек на $10 тысяч и весь гонорар внёс в качестве первого вклада за скромный загородный домик.
Внимание! Если программа не работает, обновите версию!
begin
ReadArrReal('Введите 5 чисел',5).Where(x->x<0).Println
end.
Пример
Введите 5 чисел 4 -3.1 5.7 -2 6
-3.1 -2