Помогите пожалуйста составить программу ** ''Pascal ABC'') Дана строка, содержащая текст...

Question

Помогите пожалуйста составить
программу на ''Pascal ABC'')

Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.

Answer 1

var
  str : string;
  i, j: byte;
  schr: char;

begin
  readln(str); //Вводим строку
  str := ' ' + str;  //Это чтобы не удлинять условие, что ниже
  readln(schr); //Вводим символ
  for i := 2 to length(str) do
    if ((upcase(str[i]) = upcase(schr)) and (str[i - 1] = ' ')) then
      inc(j);
  writeln(j);
end.

Comments

Обьясните пожалуйста поподробнее, просто пропустил и плохо понял тему

---

Тут просто: проходимся по строке и ищем слово, начинающееся с данной буквы. Слово начинается с неё, если она идёт после пробела. Чтобы от этого правила не отходить, добавляем пробел перед первым словом. Ну и ищем в цикле, сколько есть последовательностей пробел

---

пробел+буква