1. Разобьем условие на части, чтобы было нагляднее. в числе меньше восьми цифр "И" [число кратно 3 "ИЛИ" (число содержит 2 "И" число кратно 5)]
2. Условие "в числе меньше восьми цифр" связано с остальной частью выражения по "И", следовательно, оно обязательное и все, что ему не удовлетворяет, должно быть отброшено вместе с этим условием. Варианты 4) и 6) содержат 8 цифр и отбрасываются.
3. число кратно 3 "ИЛИ" число содержит 2 "И" число кратно 5 Если варианты "число кратно 3" есть, мы их выбираем, а это условие отбрасываем. Кратны трем числа 1) 69 2) 12 и 7) 15.
4. Остались числа 3) 25, 5) 22 и 8) 55. Проверяем их на условие число содержит 2 "И" число кратно 5 Содержат двойку 3) 25 и 5) 22, но лишь 25 кратно 5 - его и оставляем.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=new List<real>; a.AddRange(ReadSeqReal('Введите список А:',10)); var b:=new List<real>; b.AddRange(ReadSeqReal('Введите список B:',10)); var x:=new List<real>; x.AddRange(a.Zip(b,(p,q)->q/p)); Write('A: '); a.Println; Write('B: '); b.Println; Write('X: '); x.Where(p->Trunc(p) mod 5=0).Println; end.
нет. ненадо