Проверить, входит ли в слово сочетание букв "нн" - Turbo Pascal
Формулировка задачи:
Составьте программу, проверяющую, входит ли в данное слово сочетание букв "нн".
Решение задачи: «Проверить, входит ли в слово сочетание букв "нн"»
textual
Листинг программы
var s : string; begin write('словосочетание: '); readln(s); if pos('нн', s) <> 0 then writeln('входит') else writeln('не входит'); readln end.