Задание:
Задача на паскалеДана строка s, определить сколько раз в ней встречается слово k.
Решение:
uses crt; var s,k: string; i,n: integer; beginread (s); read (k); for i: =1 to length (s) doif k=copy (s,i,length (k) then n: =n+1; write (n); end.
Знаете другой ответ?