Задание:
Решите пожалуйста: Определяет сколько в тексте заданных слов, напиример, «кто» .
Решение:
var a,b: string; i: integer; beginreadln (a,b); if pos (b,a) <>0 then beginwhile pos (b,a) <>0 do begininc (i); delete (a,pos (b,a) ,length (b); end; end else writeln ('0 sovpadenii'); if i<>0 then writeln (i,' sovpadenii'); end.
Знаете другой ответ?