Проверить, входит ли в слово сочетание букв "нн" - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Составьте программу, проверяющую, входит ли в данное слово сочетание букв "нн".

Решение задачи: «Проверить, входит ли в слово сочетание букв "нн"»

textual
Листинг программы
var
  s : string;
begin
  write('словосочетание: ');
  readln(s);
  if pos('нн', s) <> 0 then writeln('входит') else writeln('не входит');
  readln
end.

Оцени полезность:

9   голосов , оценка 4.111 из 5
Похожие ответы