var s:string; begin writeln('Введите строку:'); readln(s); if POS('еееее',s)>0 then writeln('В строке имеются 5 подряд идущих букв е') else writeln('В строке нет 5 подряд идущих букв е'); end.
Пример: Введите строку: Примееееер пример В строке имеются 5 подряд идущих букв е
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
