Дано предложение. Определить число вхождений в него некоторого буквосочетания

@Алембек · Регистрация: 25.02.2020

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

Дано предложение. Определить число вхождений в него некоторого буквосочетания.

@ZX Spectrum-128 · 11.03.2020, 19:49

Найти число вхождений в предложение некоторого буквосочетания

@Алембек · 12.03.2020, 18:26 **[ТС]**

Pascal

var p,s:string[25];i,k:integer;
begin
write('введи текст: ');
readln(s);
write('введи слова: ');
readln(p);
for i:=1 to length(s) do
if copy(s,i,3)=p then k:=k+1;
writeln(k);
end.

я сделал так только указал количество 3 ,как сделать чтоб количество находила сама ?

@ZX Spectrum-128 · 13.03.2020, 07:10

Pascal

var
  p, s: string[255];
  m, i, k: integer;
 
begin
  write('Введите текст: ');
  readln(s);
  write('Введите буквосочетание: ');
  readln(p);
  m := length(p);
  for i := 1 to length(s) do
    if copy(s, i, m) = p then 
      k := k + 1;
  writeln(k);
end.

@Алембек 0 / 0 / 0 Регистрация: 25.02.2020 Сообщений: 127
		1
	Дано предложение. Определить число вхождений в него некоторого буквосочетания 11.03.2020, 19:35. Показов 1543. Ответов 3 Метки нет (Все метки) Дано предложение. Определить число вхождений в него некоторого буквосочетания. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	11.03.2020, 19:49	2
	Найти число вхождений в предложение некоторого буквосочетания 0

	13.03.2020, 07:10

Опции темы