Вводится последовательность символов, оканчивающаяся точкой. сосчитать количество слов.в pascal.
259
434
Ответы на вопрос:
Var s,q: string; i,n,j,m,k,l: longint; begin readln(s); m: =0; s: =' '+s+' '; for i: =1 to length(s) do if s[i]< > ' ' then begin if s[i-1]=' ' then l: =i; if s[i+1]=' ' then begin inc(m); end; end; writeln(m); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ngjjndnd17.03.2020 09:33
-
sofkabovs19905.10.2022 07:07
-
olgakankova8626.04.2020 02:52
-
mirko2015201606.05.2020 20:35
-
Aliya551114.10.2020 16:11
-
Нурсая1234503.11.2020 20:53
-
ВасилийПупкин22717.06.2023 20:22
-
Доминат06.02.2023 09:19
-
anickeeva201303.03.2021 09:58
-
nova4ka07.02.2021 13:10
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.