Ответы на вопрос:
Var s: string; // строка текста i,lf: integer; // lf - номер первого символа отдельного слова в строке // i - переменная цикла, для просмотра строки begin write('строка: '); readln(s); // считывание слова i: =1; lf: =1; // i: =1; - текущий символ слова - первый // lf: =1; - lf указывает на первый символ слова repeat // цикл по строке if s[i]=' ' then // если очередной символ строки - пробел, то begin // начало блока операторов if uppercase(s[i-1])=uppercase(s[lf]) then // если последний символ текущего // слова равен первому символу слова без учета регистра, то begin // начало блока операторов delete(s,lf,i-lf+1); // удаляем слово вместе с пробелом справа i: =lf; // i: =lf; - переменная i указывает на следующее слово end // конец блока операторов else lf: =i+1; // иначе, если первый символ слова не равен // последнему символу слова, устанавливаем lf на // первый символ следующего слова end; // конец блока по условию, что очередной символ - пробел i: =i+1; // переходим к следующему символу в строке until > length(s); // если номер очередного символа строки больше длины // строки, то выход из цикла по строке // если в последнем слове текста есть совпадения // первого и последнего символа if s[length(s)] in ['.','? ','! '] then // если текст заканчивается одним из знаков if s[lf]=s[length(s)-1] then delete(s,lf-1,length(s)-lf+1) // сравниваем с предпоследним // если равны, то удаляем последнее слово else // иначе ничего не делаем else if s[lf]=s[length(s)] then delete(s,lf-1,length(s)-lf+2); // если последний // символ не то сравниваем первый символ последнего // слова с последним символом текста, если равны, // то удаляем последнее слово writeln('новая строка: ',s); // выводим новую строку на экран end. // конец программы строка: это озеро около заповедника. новая строка: это заповедника.строка: около этого заповедника находится озеро. новая строка: этого заповедника находится.строка: озеро около заповедника новая строка: заповедника
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
rufat285619.07.2020 18:43
-
gabjagYT23.02.2023 11:58
-
vika2727270507.04.2023 02:42
-
mansurmusaev9107.04.2020 09:28
-
elenabeloglazo21.05.2022 05:32
-
Николь2807154718.04.2022 18:50
-
katya878787107.11.2020 23:52
-
sashkatimoshka26.04.2023 17:09
-
алина384312.05.2022 03:02
-
людмила24530.01.2023 00:10
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.