Конечно же ответ 2. Система самодиагностики и сбора статистики
На единицу больше, чем максимальная из цифр в записи чисел. В данном случае максимальная цифра 3, следовательно, достаточно использовать систему счисления с основанием 4.
<em>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('Вводите:').ToWords.Select(w->w.ToLower)
.Where(w->w=w.Inverse).Println
end.
<u>Пример</u>
Вводите: Шла Алла по дороге видит дед несет наган
алла дед наган
Т.к. наибольшая цифра в числе "силен" =5, а С=1, то остальные четыре цифры в данном числе будут 2, 3, 4, 5. Т. к. Н<6, то И=2. А значит, Н=4. Т.к. Л>Е, то Л=5, Е=3. А тогда уже легко находим остальные цифры: Ш=8, Р=9. В итоге получается: 9382+3152=12534.
Ответ: 9382+3152=12534.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger('N='), 7, t -> t + 7).Println
end.
<h3>N= 10</h3><h3>7 14 21 28 35 42 49 56 63 70</h3>