begin write('Введите текст '); readln(s); write('Введите слово '); readln(sl); s:=' '+s+' '; sl:=' '+sl+' '; for i := 1 to length(s) - length(sl) + 1 do begin sc := copy(s, i, length(sl)); if sc = sl then inc(k); end; if k = 0 then writeln('Не встречается') else writeln('Встречается ', k, ' раз'); end.
Var k,i,L:integer; S,C:string; Begin Write('Введите текст: ');ReadLn(S); Write('Введите искомое слово: ');ReadLn(C); L:=Length(C); S:=Copy(C,1,L-1)+' '+S+' '; S:=LowerCase(S); C:=LowerCase(C); k:=0; For i:= 1 to Length(S) do if S[i]in['а'..'я','А'..'Я','ё','Ё','0'..'9'] then if S[i+1]in[' ','-','(',')',',',';',':','.','!','?'] then if Copy(S,i-L+1,L) = C then k:=k+1; WriteLn(k); End.
s, sl, sc: string;
i, k: integer;
begin
write('Введите текст ');
readln(s);
write('Введите слово ');
readln(sl);
s:=' '+s+' ';
sl:=' '+sl+' ';
for i := 1 to length(s) - length(sl) + 1 do
begin
sc := copy(s, i, length(sl));
if sc = sl then inc(k);
end;
if k = 0 then writeln('Не встречается')
else writeln('Встречается ', k, ' раз');
end.
k,i,L:integer;
S,C:string;
Begin
Write('Введите текст: ');ReadLn(S);
Write('Введите искомое слово: ');ReadLn(C);
L:=Length(C);
S:=Copy(C,1,L-1)+' '+S+' ';
S:=LowerCase(S);
C:=LowerCase(C);
k:=0;
For i:= 1 to Length(S) do
if S[i]in['а'..'я','А'..'Я','ё','Ё','0'..'9'] then
if S[i+1]in[' ','-','(',')',',',';',':','.','!','?'] then
if Copy(S,i-L+1,L) = C then k:=k+1;
WriteLn(k);
End.