Распределите на устройства ввода и вывода тачскрин и графический планшет. ! всех и отмечу ответ 5-ю !

Итачскрин, и графический планшет устройства ввода

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! 1. в принципе, массив тут совершенно не нужен: begin   readseqintegerwhile(t-> t< > 0).where(t-> (t mod 4=0) and (t mod 10=2))       .defaultifempty.average.println end. 2. но если хочется удлинить решение и получить лишний расход памяти, можно и с массивом: begin   var a: =readseqintegerwhile(t-> t< > 0).toarray;   a.where(t-> (t mod 4=0) and (t mod 10=.average.println end.

Чтобы была истинной первая часть высказывания - не (первая цифра чётная), нужно подобрать на первое место в числе нечётную цифру: 1,3, 5, 7, 9 . чтобы была истинной вторая часть высказывания, нужно подобрать на второе место в числе чётную цифру: 2,4,6,8. итого, обе части высказывания будут истинными относительно описания составленного вами числа, а соответственно и всё высказывание будет истинным, то есть и ^ и = и. примеры чисел, для которых истинно данное высказывание: 34, 18, 56, 34 и т.д.