Pascal
Дана строка. Подсчитать количество слов, заканчивающихся буквой и.
Например,
Мышки ели шишки.
Дана строка. Подсчитать количество слов, заканчивающихся буквой и.
Например,
Мышки ели шишки.
More Questions From This User See All
Answers & Comments
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.