Написать программу в паскале. удалить из строки все четырехбуквенные слова.
149
198
Ответы на вопрос:
//pascalabc.net 3.1 сборка 1200 const wordl = 4; begin var s : = readlnstring('s = '); var s1 : = ''; var i : = 1; repeat var t : = pos(' ', s, i + 1); if ((s[i] = ' ') or (i = 1)) and = 0) and (length(s) - i = wordl)) or (t - i - 1 = wordl)) then i : = i + wordl + 1 else begin s1 : = s1 + s[i]; i : = i + 1; end; until i > length(s); writeln(s1) end.
Var s: string; i, k: integer; b: boolean; begin readln(s); var n : = length(s); i : = 1; repeat b : = true; while (i < = n) and (s[i] < > ' ') do begin if b then begin k : = i; b : = false end; inc(i) end; if i - k = 4 then begin delete(s, k, 5); i : = k; n : = n - 5 end else inc(i) until i > n; write(s) end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
adobycina4326.05.2020 11:06
-
valya414gogus14.03.2023 06:26
-
LipskiyTimur14.02.2022 21:04
-
ibraimova230.08.2020 09:11
-
aska31120326.09.2020 01:08
-
lol23458315.05.2022 20:28
-
turanaliev24120209.11.2020 22:14
-
AMINA200713345628.07.2022 22:27
-
karinarei201706.02.2022 12:06
-
cat49311.03.2021 10:09
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.