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.
begin write('Введите текст '); readln(s); write('Введите слово '); readln(sl); s:=' '+s+' '; <span> sl:=' '+sl+' ';</span> 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.
Компьютер играет значимую роль в нашей жизни. Мы на нём можем смотреть полезную информацию, сохранять файлы с нужной для нас информацией и передавать информацию другим пользователям. Компьютер -это поле для деятельности/работы человека.На нём мы можем даже ПРОГрАМИРОВАТЬ и помогать людям, допустим приложение Znanija.com.