Количество последовательностей будет равно количеству двоичных чисел, которые можно записать с помощью 5 символов:
2^5=32
begin
var s := ReadlnString('Введите строку:');
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'X', 'Х': s[i] := '1'
end;
Println('Двоичный код:', s);
end.
===== PascalABC.NET =====