Question

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

Answer 1

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

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

Answer 2

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

Answer 3

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

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

Answer 4

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