Есть ответ 👍

Написать код дан файл, содержащий текст на языке и некоторые два слова. определить, сколько раз они встречаются в тексте и сколько из них — непосредственно друг за другом.

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

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

HAHAEZ2010
4,4(21 оценок)

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.
kizzka
4,5(11 оценок)

ctrl + alt + delete -> вкладка автозагрузка -> і відключаєте собі непотрібні програми

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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS