===== PascalABC.NET =====
begin
var s := ReadlnString;
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'x', 'X': s[i] := '1'
end;
Println(s)
end.
Пусть на второй странице Х байт информации.
Тогда на 1 странице 2Х байт информации.
3Х = 258
Х = 86 байт - весит 2 страница.
86*2 = 172 байта - весит первая страница.
Т.к. не дано сколько весит 1 символ, пусть это будет Y(в байтах).
Ответ: 172/Y
<span>в поиске слова в тексте по заданному образцу преобладает процесс:
</span><span>С. Обработки информации</span>