Строки. Найти количество слов, начинающихся с буквы "х"

@SStass · Регистрация: 27.10.2011

Студворк — интернет-сервис помощи студентам

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

@juvmax · 07.11.2011, 02:53

Pascal

{Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Найти количество слов, начинающихся с буквы "х".}
var
  s: string;
  i: integer;
  k: integer;
 
begin
  writeln('Введите строку:');
  readln(s);
  s := ' ' + s;
  for i := 1 to length(s) do
    if (s[i] = ' ') and (s[i + 1] = 'x') then inc(k);
  writeln('Количество слов, начинающихся с буквы х равно:', ' ', k);
end.

@SStass 2 / 2 / 0 Регистрация: 27.10.2011 Сообщений: 26
		1
	Строки. Найти количество слов, начинающихся с буквы "х" 07.11.2011, 00:32. Показов 1646. Ответов 1 Метки нет (Все метки) Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Найти количество слов, начинающихся с буквы "х". 0

	07.11.2011, 02:53

Опции темы

Строки. Найти количество слов, начинающихся с буквы "х"

Решение