Найти, сколько раз встречается в тексте буквосочетание "то"

@masterstvo2012 · Регистрация: 23.03.2014

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

Дана строка текста. Найти:. сколько раз встречается в тексте буквосочетание «то»

@APALoff · 22.05.2014, 11:56

Pascal

Function Nsubs(subs,S : String) : Byte;
Begin
  If Length(S)<Length(subs) then Nsubs:=0 else
    If Copy(S,1,Length(subs))=subs then
      Nsubs:=1+Nsubs(subs,Copy(S,2,Length(S)-1))
    else
      Nsubs:=Nsubs(subs,Copy(S,2,Length(S)-1));
end;
 
Begin
  Writeln(Nsubs('то','Тест-строка: топор, потоп, ток, исток')); {4}
end.

@masterstvo2012 0 / 0 / 0 Регистрация: 23.03.2014 Сообщений: 144
		1
	Найти, сколько раз встречается в тексте буквосочетание "то" 22.05.2014, 11:08. Показов 1617. Ответов 1 Метки нет (Все метки) Дана строка текста. Найти:. сколько раз встречается в тексте буквосочетание «то» 0

Опции темы

Найти, сколько раз встречается в тексте буквосочетание "то"

Решение