Ввести произвольный текст. В данном тексте определить, сколько раз встречается буквосочетание "он"

@100matolog · Регистрация: 12.03.2012

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

Прошу помочь, таких два задания
1. Ввести произвольный текст. В данном тексте определить, сколько раз встречается буквосочетание "он".
2. Дана строка символов. Удалить из нее все слов начинающиеся с заданной буквы. (букву пользователь задает сам)

Заранее благодарю.

@Ev[G]eN · 12.03.2012, 22:49

Сообщение от 100matolog

Ввести произвольный текст. В данном тексте определить, сколько раз встречается буквосочетание "он"

Pascal

var
  Count: integer;
  Str: string;
  i: byte;
begin
  write('Текст: ');
  readln(Str);
  for i:=1 to length(Str)-1 do
    if (Str[i] = 'о') and (Str[i+1] = 'н') then inc(Count);
  writeln('"он" в тексте встречается ', Count, ' раз(а)!');
end.

@100matolog · 12.03.2012, 23:10 **[ТС]**

Спасибо большое

Добавлено через 15 минут

Сообщение от 100matolog

2. Дана строка символов. Удалить из нее все слов начинающиеся с заданной буквы. (букву пользователь задает сам)

Заранее благодарю.

Кому не трудно помогите с этой)

@100matolog 0 / 0 / 0 Регистрация: 12.03.2012 Сообщений: 4
		1
	Ввести произвольный текст. В данном тексте определить, сколько раз встречается буквосочетание "он" 12.03.2012, 22:45. Показов 3427. Ответов 2 Метки нет (Все метки) Прошу помочь, таких два задания 1. Ввести произвольный текст. В данном тексте определить, сколько раз встречается буквосочетание "он". 2. Дана строка символов. Удалить из нее все слов начинающиеся с заданной буквы. (букву пользователь задает сам) Заранее благодарю. 0

@100matolog 0 / 0 / 0 Регистрация: 12.03.2012 Сообщений: 4
	12.03.2012, 23:10 [ТС]	3
	Спасибо большое Добавлено через 15 минут Сообщение от 100matolog 2. Дана строка символов. Удалить из нее все слов начинающиеся с заданной буквы. (букву пользователь задает сам) Заранее благодарю. Кому не трудно помогите с этой) 0

Ввести произвольный текст. В данном тексте определить, сколько раз встречается буквосочетание "он"

Решение