Паскаль АВС. Дана строка символов. Составьте программу которая подсчитывает, сколько в...

Question

Паскаль АВС. Дана строка символов. Составьте программу которая подсчитывает, сколько в данной строке слов оканчивающихся на а. Все слова разделяются 1 пробелом и только русские буквы.

Comments

ну, это не я ставила задачу, а учитель дал сделать по методичке Паскаль

---

Вы не понимаете, что учитель дал это Вам, а не нам. А нам задачу даете Вы и должны ставить её корректно.

---

хорошо, я поняла

---

Вы даже не написали какой именно Паскаль - Турбо, Borland, Object, Free, ABC, ABC.NET и т.п.

---

А все эти "паскали" разные

---

паскаль авс

---

Тогда осталось поправить текст задания для конкретизации

---

окай

---

Видите, все просто теперь)

---

спасибо больше!

Answer 1

Var
  s: string;
  i, n: integer;
  a: set of char;

begin
  Writeln('Введите строку текста');
  Readln(s);
  n := 0;
  a := ['А', 'а'];
  for i := 1 to Length(s) do
    if (s[i] = ' ') and (s[i - 1] in a) then n := n + 1;
  if (s[i - 1] in a) then n := n + 1;
  Writeln('Количество слов, оканчивающихся буквой "а", равно ', n)
end.

Тестовое решение:
Введите строку текста
А роза упала на лапу Азора
Количество слов, оканчивающихся буквой "а", равно 4