Рассмотрим последовательность 1, 11, 21, 1211, 111221, …. Каждое последующее число последовательности получается следующим образом: для каждой группы идущих подряд одинаковых цифр (даже если это одна цифра) пишется количество цифр в этой группе и сама цифра. Так число 111221 читается как три единицы, две двойки, одна единица, что дает 312211. Сколько раз цифра 2 встречается в 30-м члене этой последовательности?
ответ: 1423
PascalABC.NET 3.7:
###var s: string := '1';loop RI - 1 do s := s.AdjacentGroup.SelectMany(x → x.Len + x[0]).Str;s.Count(x → x = '2').Pr