Написать программу в паскале: дана строка текста. слова в тексте друг от друга отделяются одним пробелом. удалить из строки все слова, начинающиеся и заканчивающиеся на "о".
144
374
Ответы на вопрос:
Var ptr: integer; function getword(s: string): string; // возвращает очередное слово из строки s или пустое значение, // если в строке больше нет слов. // перед вызовом позиция начала слова указывается переменной ptr. // перед выходом ptr устаналивается на границу следующего слова // ptr=0 означает, что вся строка просмотрена. var n, p: integer; begin n : = length(s); if (ptr > = n) or (ptr=0) then begin ptr : = 0; result : = '' end else begin p : = posex(' ', s, ptr); if p > 0 then begin result : = copy(s, ptr, p - ptr); ptr : = p + 1 end else begin result : = copy(s, ptr, n - ptr + 1); ptr : = 0 end end end; var s1, s2, s: string; n: integer; begin writeln('вводите строку'); readln(s1); ptr : = 1; s2 : = ''; repeat s : = getword(s1); n : = length(s); if n > 0 then if (s[1] < > 'о') or (s[n] < > 'о') then s2 : = s2 + s + ' ' until n = 0; n : = length(s2); if s2[n] = ' ' then s2 : = copy(s2, 1, n - 1); writeln('результирующая строка: ', s2) end. тестовый прогон: вводите строку в это окно отлично виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину. результирующая строка: в это виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину.
Минулого літа я з батьками відпочивав на морі. ми часто приходили на пляж поблизу невеличкої пристані. хлопчикам дуже стрибати там у воду. якось я помітив, що десь по обіді біля пристані з'являється величезний чорний собака. у нього довга шерсть, блискучі карі очі. за такої літньої спеки він відразу кидається в море й пливе ближче до того місця, де збираються стрибуни. там він очікує хлопчиків чи дівчаток, які будуть стрибати у воду. спершу було незрозуміло, чому він пливе саме туди. та підійшовши ближче, я усе второпав. собака чекає, поки хтось стрибне, випірне, а він уже поруч, і дітлахи із задоволенням хапаються за його спину, загривок або просто за шерсть, навіть за хвоста. і дар (так кличуть собаку) із усіх сил прямує до берега. усім дуже весело. одного разу прийшов ігор іванович — хазяїн собаки, і я запитав про дивну поведінку дара. ігор іванович розповів, що це сталося кілька років тому. маленька дівчинка стояла на пристані, оступилася і впала у воду. дорослі кинулися їй, але дар випередив усіх. дівчинка вхопилася рученятами за шерсть собаки, а він із усіх сил чимдуж поплив до берега. і з тих пір він нібито рятує всіх дітей, які бавляться на пристані. мені теж було приємно пливти до берега, тримаючись за чорну спину дара.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
osadcha200410.03.2021 08:41
-
MrKepka12.06.2022 21:22
-
Лера11122233325.03.2023 07:17
-
syrlybai05617.04.2023 23:25
-
DashSHAD0W04.03.2023 23:01
-
nikserg22327.12.2020 05:34
-
tema15233124.02.2022 14:51
-
Catlove33303.09.2020 23:25
-
Grooshka03.04.2020 05:34
-
Dusa77730.06.2021 21:45
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.