Pascal
Дана строка. Подсчитать количество слов, заканчивающихся буквой и.
Например,

Мышки ели шишки.

var  s: string := 'Мышки ели шишки.';  a: set of char := ['а'..'я', 'ё'];  n, i: integer;begin  s := LowerCase(s) + ' ';  for i := 2 to Length(s) do    if not (s[i] in a) and (s[i-1]='и') then      n := n + 1;  writeln(n);end.