Подсчитать количество слов, которые заканчиваются буквами "е" или "Е"

@Роман97 · Регистрация: 26.01.2014

Дано некоторый текст. Группы символов, разделенных пробелами (одним или несколькими) и не содержите внутри пробелов, называть словами. Считать, что текст всегда начинается со слова. Подсчитать количество слов, которые заканчиваются буквами "е" или "Е". Помогите сделать,пожалуйста!

@APALoff · 20.03.2014, 10:39

Pascal

n:=0;
Readln(St);
St:=St+' ';
For i:=1 to Length(St)-1 do
  If (St[i] in ['е','Е']) and (St[i+1]=' ') then Inc(n);
Writeln(n);

@volvo · 20.03.2014, 12:26

Pascal

  readln(s);
  foreach st : string in s.Split(' ') do
    Inc(Count, Ord(st.ToUpper.EndsWith('Ё')));
  writeln('Count = ', Count);

@Роман97 0 / 0 / 0 Регистрация: 26.01.2014 Сообщений: 14
		1
	Подсчитать количество слов, которые заканчиваются буквами "е" или "Е" 19.03.2014, 22:36. Просмотров 1126. Ответов 2 Метки нет (Все метки) Дано некоторый текст. Группы символов, разделенных пробелами (одним или несколькими) и не содержите внутри пробелов, называть словами. Считать, что текст всегда начинается со слова. Подсчитать количество слов, которые заканчиваются буквами "е" или "Е". Помогите сделать,пожалуйста! 0

Опции темы

Подсчитать количество слов, которые заканчиваются буквами "е" или "Е"

Решение