Условие:
Пусть задано положительное целое число x. Рассмотрим строку S, которая является записью его
представления в двоичной системе счисления. Необходимо вычислить сумму всех различных чисел,
двоичные представления которых являются подстроками строки S.
Например, пусть x = 5. Тогда S = 101, множество подстрок S таково: {1, 0, 1, 10, 01, 101}. Если
интерпретировать эти строки как двоичные числа и удалить повторяющиеся, получается множество
чисел: {0, 1, 2, 5}. Их сумма равна 8. Pascal