Question

Задача на паскале
Дана строка s, определить сколько раз в ней встречается слово k.

Answer 1

uses crt;

var s,k:string;

i,n:integer;

begin

read(s);

read(k);

for i:=1 to length(s) do

if k=copy(s,i,length(k)) then n:=n+1;

write(n);

end.