Не понял я твоего вопроса, но вот то, что получилось у меня: Игровые приставки очень вредят организму человека, во-первых играя в них портиться зрение, во-вторых когда вы играете в видео-игры они действуют на ваше психическое состояние, так как в играх содержатся сцены насилия, убийств. Но есть и познавательные игры для детей, в которых вы можете научиться многому и узнать о различных факторах человека или о строение его организма. В компьютер, игровые приставки разрешено играть не больше 1 часа, так как они могут повредить ваше зрение, а так же сидя за компьютером нельзя близко прислоняться к его манитору.
begin Write('Введите текст из трех слов: '); Readln(s); Write('Введите искомое слово: '); Readln(w); ls := Length(s); lw := Length(w); n := 0; i := 1; p := Pos(w, s); while p > 0 do begin n := n + 1; i := p + lw + 1; s := Copy(s, i, ls - i + 1); ls := Length(s); p := Pos(w, s) end; if n = 0 then Writeln('Искомое слово не встречается в тексте') else if n = 1 then Writeln('Искомое слово встречается 1 раз') else Writeln('Искомое слово встречается ', n, ' раза') end.
Тестовое решение:
Введите текст из трех слов: Мама мыла раму Введите искомое слово: Папа Искомое слово не встречается в тексте
Введите текст из трех слов: Мама мыла раму Введите искомое слово: мыла Искомое слово встречается 1 раз
Введите текст из трех слов: ааа ааа Введите искомое слово: ааа Искомое слово встречается 2 раза
когда идёт пожар закрывать рот платком ,вызывать пожарных