Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Gdyxtk24.09.2021 16:55
-
НикитаЗеленюк24.03.2022 13:03
-
kislayaya1310.04.2022 16:25
-
allteennkka198530.09.2021 09:31
-
armanovi0507.08.2020 00:48
-
gxjjfjg22.06.2022 00:56
-
Tet4ip06y10.01.2020 15:33
-
fox212128.06.2020 02:22
-
зюзенька06.05.2023 12:17
-
missislevitina11.01.2023 20:41
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.