Ввести целое число и определить, верно ли, что в нём ровно одна цифра 9

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   writeln((readinteger.tostring.where(t-> t='9'=1) end. примеры 35423 false 13290192 false 132903 true

2^i = 32, i = 5 бит приходится на 1 символ

2^i = 64, i = 6 бит приходится на 1 символ

т.к. количество символов в тексте одинаковое, то 6 : 5 = 1,2

информационный объем второго текста в 1,2 больше, чем у первого текста.

2^i = 64

i = 6 бит приходится на 1 символ

3 * 40 * 60 * 6 = 43200 бит

43200 : 8 = 5400 байт