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

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

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


textual

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

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

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник