Задан текст из n символов (n <= 250). Каждый символ текста может быть маленькой буквой, цифрой или одним из знаков +,-,*. Группой лтер будем называть совокупность подряд расположенных букв, которой не предшествует и за которой не находится буква. Аналогично определяется группа знаков, группа цифр. Выяснить, встречается ли в данном тексте группа букв one - Pascal(Паскаль)

uses crt;
var
  s:string;
  i,k:integer;
begin
  clrscr;
  writeln('vvedite stroky');
  readln(s);
  k:=0;
  for i:=1 to length(s)-2 do
    if (s[i]='o') and (s[i+1]='n') and (s[i+2]='e') then
      inc(k);
    if k>0 then writeln('да,встречается ',k, ' раза')
    else writeln('группа букв не найдена');
  readln
end.

Похожие записи/страницы:

Leave a Comment