Ответы на вопрос:
Pascal алгоритм1 var s : string; n1,n2 : integer; i,l : integer; begin readln (s); n1 : = 0; n2 : = 0; l : = length(s); for i : = 1 to l do if (s[i] = ' ') then if n1 = 0 then n1 : = i else n2 : = i; if n2 = 0 then s : = ' ' else s : = copy(s,n1+1,n2-n1-1); writeln (s); end.алгоритм2 var s : string; n1,n2 : integer; i,l : integer; r : boolean; begin readln (s); n1 : = 0; n2 : = 0; r : = false; l : = length(s); i : = 1; while (i< =l) and (not r) do begin if s[i] = ' ' then begin n1 : = i; r : = true; end; i : = i +1; end; r : =false; i : = l; while (i> 0) and (not r) do begin if s[i] = ' ' then begin n2 : = i; r : = true; end; i : = i -1; end; if n2 = n1 then s : = ' ' else s : = copy(s,n1+1,n2-n1-1); writeln (s); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
gaglovev200112.03.2020 21:03
-
Karelia167728.03.2023 12:34
-
oksanavolkova329.09.2021 02:13
-
рвржвжчржч11.04.2022 13:41
-
Геймеr22804.07.2021 04:06
-
Cet3107200720.05.2022 09:29
-
Vvcvcdcgyccdschjkvcd28.08.2022 22:32
-
vlad04120421.06.2022 17:10
-
Tigr11111111222.11.2020 18:58
-
MariaGraf24.11.2022 15:48
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.