Г) if x o then e: = 5 Я думаю что это так
Найдем первое число из данного диапазона, кратное семи.
100 / 7 = 14 и остаток 2.
100 + (7-2) = 105. (можно найти это число и другими путями).
И теперь задача сводится к нахождению суммы чисел последовательности 105, 112, ... где последнее число не превышает 200,
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('S=',Range(105,200,7).Sum)
end.
<u><em>Тестовое решение:</em></u>
S=2107
1. Поменяны прописные и строчные буквы: закодированные слова начинаются со строчных букв, а остальные прописные, хотя в исходных словах все наоборот.
2. Длина слов сохранилась, как было три пятибуквенных имени и три шестибуквенных, так и осталось, следовательно одни символы были заменены на другие.
3. В имени Филипп две последние буквы совпадают и среди закодированных слов есть одно шестибуквенное <span>тХКХОО, в котором совпадают две последние буквы. Также есть имя Максим, в котором первая и последняя буквы совпадают, а среди закодированных есть шестибуквенное </span><span>лЮЙЯХЛ. На этом основании предполагаем, что произведена подмена одной буквы другой, причем </span> подмена постоянная, т.е. конкретная буква всегда подменяется одной и той же.
4. Мы нашли два шестибуквенных имени, следовательно третье (<span>Густав) закодировано как </span><span><span>цСЯРЮБ.
</span>5. Среди пятибуквенных имен два начинаются на одну и ту же букву (А), а среди закодированных имен есть два, начинающиеся на "ю", тогда оставшееся </span><span>бЮДХЛ - это имя </span><span>Вадим.
6. В слове </span><span>юМРНМ совпадают вторая и последняя буквы. В имени </span><span>Антон
они также совпадают, следовательно оставшееся </span><span>юПР╦Л - это </span><span>Артём.
<em><u>Окончательно:</u></em>
</span><span>юПР╦Л - </span><span><span><span>Артём
</span>юМРНМ - Антон
бЮДХЛ - Вадим
лЮЙЯХЛ - Максим
цСЯРЮБ - Густав
тХКХОО</span> - Филипп</span>
Предполагается, что в массиве есть хотя бы одно четное и одно нечетное значение.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var F := ReadArrInteger(ReadInteger('T='));
var ae := F.Where(p -> p.IsEven).Average;
var ao := F.Where(p -> p.IsOdd).Average;
var m := Min(ae, ao);
var E := F.Where(p -> p > m).ToArray;
E.Println
end.
На локальном диске (:С) или на флешке ,или на диске.
Во внешней папяти