Ответы на вопрос:
*в маске используется для подстановки любого кол-ва любых символов. т.е. любые варианты в которых между m и .d что-то будет - правильные. а какие - придумай сам)
Program primer; var f: text; i, j, h: byte; l, k: smallint; s, s1, s2, m: string; begin assign(f, 'f.txt'); {путь к файлу} reset(f); read(f, s); s : = ' ' + s + ' '; close(f); writeln('укажите 2 слова через строчку'); readln(s1); readln(s2); i : = 0; j : = 0; m : = s; k : = 1; while k < > 0 do begin k : = pos(' ' + s1 + ' ', m); if (k < > 0) then inc(i); delete(m, 1, k + length(s1)); end; k : = 1; m : = s; while k < > 0 do begin k : = pos(' ' + s2 + ' ', m); if (k < > 0) then inc(j); delete(m, 1, k + length(s2)); end; m : = s; k : = 1; h: =0; while (k < > 0) or (l < > 0) do begin k : = pos(' ' + s1 + ' ' + s2 + ' ', m); l : = pos(' ' + s2 + ' ' + s1 + ' ', m); if (k < > 0) or (l < > 0) then inc(h); delete(m, 1, k + l + length(s2 + s1) + 1); end; writeln('количество слов соответствующих первому = ', i); writeln('количество слов соответствующих второму = ', j); writeln('непосредственно друг за другом х', h); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ryvdgruhcdgghhhFrubf08.02.2020 22:44
-
saya828230.03.2021 01:31
-
miran327.03.2022 02:37
-
22866622866622828.01.2022 19:41
-
alexandrcrivuli14.01.2023 01:57
-
Maks280113.10.2022 23:27
-
nastyatsepeleva22.03.2020 23:07
-
svetik1098726.05.2021 10:44
-
m1a2s3h4a5199920.07.2022 06:29
-
dominocos08.04.2021 01:05
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.