Помогите написать программу в pascal.Дан набор слов, разделенных точкой с запятой (;)....

Question

Помогите написать программу в pascal.Дан набор слов, разделенных точкой с запятой (;). Набор заканчивается двоеточием (:). Определить, сколько в нем слов, заканчивающихся буквой а.

Answer 1

var
  str: string;
  i  : byte;

begin
  readln(str);
  str := str.Replace(':', '');
  foreach c: string in str.Split(';') do
    if (c[c.Length] in ['a', 'а']) then //не уточнено, какого алфавита "а"
      i += 1;
  writeln(i);
end.

Comments

Зачем? Просто удалить последний символ, чтобы не смущать программу им

---

В смысле, в ведённой строке удалить

---

Чтобы однозначно можно было сказать: последняя буква последнего слова - "а", а не ";"