Склавиатуры вводится строка, состоящая из слов и чисел, разделенных одним или несколькими пробелами. подсчитать среднее арифметическое всех чисел, которые состоят из одинаковых цифр.

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! begin   readlnstring.matchvalues('\d+').select(w-> (w,w.distinct           .orderby(c-> c).joinintostring(''(t-> t[1])           .where(x-> x.count> 1).select(x-> x.unziptuple.item1.           select(x-> x.tointeger).average).println; end. пример это    3242 такая 181 вот 346    странная  432  1118 строка 1837 649.5 как все это работает (функциональное программирование) readlnstring - считываем строку с клавиатуры .matchvalues('\d+') - выбираем подстроки символов, состоящие из цифр .select(w-> (w,w.distinct.orderby(c-> c).joinintostring('' - эта сложная конструкция сначала в каждой подстроке оставляет только разные цифры и сортирует их в порядке возрастания, затем соединяет эти цифры в строку и объединяет исходную подстроку с полученной строкой в так называемый кортеж. полученный кортеж для каждой исходной подстроки содержит два элемента: саму подстроку и строку из уникальных цифр этой подстроки, расположенных по возрастанию. .groupby(t-> t[1]) - группирует кортежи в более крупные блоки так, чтобы каждый блок содержал кортежи, у которых второй элемент одинаков. .where(x-> x.count> 1) - оставляет только те блоки, в которых больше одного кортежа, ведь нам не нужны "числа-одиночки" .select(x-> x.unziptuple.item1 - техническая операция, превращающая в каждом блоке кортеж в последовательность подстрок, представляющих исходные числа .select(x-> x.tointeger) - каждая такая последовательность подстрок превращается в последовательность целых чисел .average) - находятся средние арифметические каждой последовательности .println - вывод всех найденных значений. все это не так уж просто, но и далеко не тривиальное. если записать его средствами "традиционного паскаля" - такого примерно, как free pascal, код будет

похоже тут нет решения

Объяснение:

самое приближенное значение b это 26, ибо остальные значения - это не натуральные числа.

48+4=52

52/26=2

2+4=6

6+4=10

10+4=14

---------------------------

Либо тут порядок команд в другую сторону.

b=5, если будет 11121

48+4+4+4=60

60/5=12

12+4=16