«Источник» - числа, из которых можно получить текущее число;
количество которыми можно получить текущее число из чисел-источников.
Тритон никак не сможет получить чётное число из 1, поэтому в первый столбец таблицы запишем все нечётные числа от 1 до 59. Далее заполняем 2-й и 3-й столбцы.
Число 3 можно получить из 1 двумя Команда1 и Команда2. Итого
Число 5 можно получить из 3 одним Команда1. Но поскольку 3 мы получили двумя то всего число 5 мы тоже можем получить
1 + 2 = 3 + 2 = 5
1 * 3 = 3 + 2 = 5
Аналогично для числа 7.
Число 9 можно получить из двух источников:
7 + 2 = 9
3 * 3 = 9
Соответственно, количество для 9 равно сумме для 7 и для 3 (2+2=4).
begin
var L := ReadSeqInteger('Вводите:', ReadInteger('N=')).ToList;
L.Println; // исходная
var k := L.OrderDescending.Skip(1).First; // после чего вставить
var A := ReadInteger('Что вставляем?');
L.Insert(L.IndexOf(k) + 1, A);
L.Println; // после вставки
k := L.Max;
var ai := L.ToArray.IndexesOf(t -> t = k).ToArray;
if ai.Count > 1 then
begin
L.RemoveAt(ai[1]);
L.Println; // после удаления, если оно было
end;
L := L.SortedDescending.ToList;
L.Println // после сортировки
end.
Составим таблицу (см. прикреплённый рисунок):
«Число» - чисел от 1 до 59;
«Источник» - числа, из которых можно получить текущее число;
количество которыми можно получить текущее число из чисел-источников.
Тритон никак не сможет получить чётное число из 1, поэтому в первый столбец таблицы запишем все нечётные числа от 1 до 59. Далее заполняем 2-й и 3-й столбцы.
Число 3 можно получить из 1 двумя Команда1 и Команда2. Итого
Число 5 можно получить из 3 одним Команда1. Но поскольку 3 мы получили двумя то всего число 5 мы тоже можем получить
1 + 2 = 3 + 2 = 5
1 * 3 = 3 + 2 = 5
Аналогично для числа 7.
Число 9 можно получить из двух источников:
7 + 2 = 9
3 * 3 = 9
Соответственно, количество для 9 равно сумме для 7 и для 3 (2+2=4).
Заполнив таблицу до конца, получим для числя 59.