Помогите очень прошу ... После каждого символа (,) вставить пробел и подсчитать...

Question

Помогите очень прошу ...
После каждого символа (,) вставить пробел и подсчитать количество букв А и В отдельно.
Вот тут ещё пытался сам делать, у меня тока ставит пробел после запятой а А и В не считает. Нужно написать подпрограмму....

---

Comments

Т.е. дана некая фраза, после каждой запятой вставить один пробел и подсчитать отдельно количество РУССКИХ БУКВ А и В? или буквы могут быть и маленькие? Или они латинские? Или они неважно какие, лишь бы начертание подходило?

---

анг большие

Answer 1

Вся программа)))

var
  s: string;
  i, nA, nB: integer;

begin
  Write('Введите строку: '); Readln(s);
  nA := 0; nB := 0;
  for i := length(s) downto 1 do
    case s[i] of
      ',': Insert(' ', s, i + 1);
      'A': Inc(nA);
      'B': Inc(nB)
    end;
  Writeln('Результат: ', s);
  Writeln('Количество "А" равно ', nA, ', количество "B" равно ', nB)
end.

Тестовое решение:
Введите строку: -MARY HAS A LITTLE LAMB. -Oh, no, it is not true!
Результат: -MARY HAS A LITTLE LAMB. -Oh,  no,  it is not true!
Количество "А" равно 4, количество "B" равно 1

Comments

Спасибо за вашу отзывчивость и опперативность

---

Пожалуйста, но достаточно было кнопочки со звездочками)

---

Кстати, если в CASE-условиях написать набор, например 'A','a': то она будет и маленькие считать...можно и русские добавить....

Answer 2

ИСПРАВИТЬ В  СТРОКЕ С     IF:

if ((s[i]=',' )  оr  (s[i]='A')  or (s[i]='B')) then  
     
далее всё также, как было в программе 

Comments

А запустить пробовали то, что предлагаете?