Висходной строке а определить количество слов содержащих ровно п символов строки х.

222

296

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

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

Aryzhaн

Информатика

4,5(98 оценок)

Const delim = [' ', ',', '.', ': ', '; ', '! ', '? ']; {набор разделителей} procedure getword(s: string; var ib: integer; var pword: string; var l: integer); // возвращает слово pword, которое является подстрокой s // разделителем слов являются один или более символов из delim. // ib при вызове процедуры указывает на позицию в строке s, // начиная с которой ведется поиск слова. // при выходе из процедуры ib - позиция начала найденного слова, // l- длина найденного слова, l=0 если слово не найдено. var i, n: integer; w: string; begin n : = length(s); l : = 0; w : = ''; if ib > = n then begin ib : = n; pword : = '' end else begin i : = ib; while (s[i] in delim) and (i < n) do i : = i + 1; ib : = i; w : = ''; while (not (s[i] in delim)) and (i < n) do begin w : = w + s[i]; i : = i + 1 end; if i < n then begin l : = i - ib; pword : = w end else begin l : = i - ib + 1; pword : = w + s[n] end end end; var w, x, a: string; n, k, i: integer; begin write('введите длину искомых слов n: '); readln(n); writeln('введите строку с искомыми словами (где искать): '); readln(a); writeln('введите строку с шаблоном поиска (что искать): '); readln(x); writeln('результаты поиска: '); i : = 1; repeat getword(a, i, w, k); if k = n then begin if pos(w, x) > 0 then writeln(w); end; i : = i + k until k = 0; end. тестовое решение: введите длину искомых слов n: 4 введите строку с искомыми словами (где искать): мама мыла раму, маша мыла полы, а таня не мыла ничего! введите строку с шаблоном поиска (что искать): даша перемыла всю посуду. результаты поиска: мыла мыла мыла

диас161

Информатика

4,6(54 оценок)

Var a,b: integer; begin write('a='); readln(a); write('b='); readln(b); if a> b then writeln('большое число: ',a) else writeln(' большое число: ',b); end.

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

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

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

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

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

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

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

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

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

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