PascalДана строка. Подсчитать количество слов, заканчивающихся буквой и.Например,Мышки ели шишки.
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.
Не нашли ответ?
Похожие вопросы