Паскаль. дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). найти количество слов в строке.

196

352

Посмотреть ответы 2

Ответы на вопрос:

mgolubev13

Информатика

4,4(89 оценок)

Const blanks = [' ']; function posblank(s: string; pn, pk: integer): integer; { ищет в строке s в позициях от pn до pk пробельный символ. возвращает его позицию в строке или ноль, если таковой символ не найден. использует подмножество пробельных символов blanks, что позволяет определять произвольный набор пробельных символов (например, табуляцию и т.д.) } var p: integer; flag: boolean; begin p : = pn; flag : = true; while flag and (p < = pk) do begin if s[p] in blanks then flag : = false else p : = p + 1 end; if p > pk then posblank : = 0 else posblank : = p end; function posnonblank(s: string; pn, pk: integer): integer; { ищет в строке s в позициях от pn до pk непробельный символ. возвращает его позицию в строке или ноль, если таковой символ не найден. использует подмножество пробельных символов blanks, что позволяет определять произвольный набор пробельных символов (например, табуляцию и т.д.) } var p: integer; flag: boolean; begin p : = pn; flag: =true; while flag and (p < = pk) do begin if s[p] in blanks then p : = p + 1 else flag : = false end; if p > pk then posnonblank : = 0 else posnonblank : = p end; var s: string; i, l, k: integer; begin write('введите строку: '); readln(s); l : = length(s); k : = 0; i : = posnonblank(s, 1, l); while (i> 0) and (i < = l) do begin k : = k + 1; i : = posblank(s, i + 1, l); if i = 0 then i : = l + 1 else i : = posnonblank(s, i + 1, l) end; writeln('количество слов в строке равно ', k) end.

tatu261

Информатика

4,8(12 оценок)

If x< > b then y = (x+a)^2; else y = x +exp(b);

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.