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

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

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

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

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

9   голосов, оценка 4.111 из 5


СОХРАНИТЬ ССЫЛКУ