Question

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

Answer 1

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.