Решите пожалуйста: Определяет сколько в тексте заданных слов…

Question

Решите пожалуйста: Определяет сколько в тексте заданных слов, напиример, «кто» .

Answer 1

87

olegkoj

03 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: