Дана строка символов выяснить верно ли что в строке имеются 5 подрат идущих букв е **...

Question

Дана строка символов выяснить верно ли что в строке имеются 5 подрат идущих букв е на паскале

Comments

ПОДРЯД?

Answer 1

Var s:string;
begin
writeln('Введите строку:');
readln(s);
if POS('еееее',s)>0
 then writeln('В строке имеются 5 подряд идущих букв е')
 else writeln('В строке нет 5 подряд идущих букв е');
end.

Пример:
Введите строку:
Примееееер пример
В строке имеются 5 подряд идущих букв е