Это правильно не нужны тут никакие s[i], и даже сама s не нужна. Решение в один оператор.
===== PascalABC.NET =====
begin
ReadlnString.
RegexReplace('(?i)[БВГДЖЗЙКЛМНПРСТФХЦЧШЩЪЬ]','0')
.Println
end.
Это правильно не нужны тут никакие s[i], и даже сама s не нужна. Решение в один оператор.
===== PascalABC.NET =====
begin
ReadlnString.
RegexReplace('(?i)[БВГДЖЗЙКЛМНПРСТФХЦЧШЩЪЬ]','0')
.Println
end.