Ответы на вопрос:
var s : string; k,l,i,p : integer; begin readln (s); l : = length(s); k : = 0; for i : = 1 to l do begin if (s[i] < > ' ') and (s[i] < > '.') then k : = k +1 else begin if k = 3 then begin for p : = i-3 to i-1 do write (s[p]); write (' '); end; k : = 0; end; end; end.вводиться строка, считается что все слова разделены пробелом между собой, и строка оканчиватся точкой.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
gulnazira200506.03.2022 11:44
-
Aloha4408.10.2022 23:59
-
natabudnikova05.05.2020 17:51
-
LIONVIP15.08.2020 16:11
-
pashafil510.10.2021 09:21
-
юлия3088510.08.2021 22:41
-
Djdjjdjdjdjddjjx30.04.2020 06:09
-
Соня1337705.06.2022 16:49
-
ВангаПатимейкер22805.11.2020 13:01
-
beliy11232920.06.2022 06:58
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.