Question

Написать программу в паскаль Ввести текст состоящий из слов , разделённых между собой запятыми. Сколько раз в тексте встречается слова "Мама" В найденных словах изменить букву "М" на букву "П" Так же нужно прописать программу простую и понятную по синтаксису

Answer 1

//PascalABC.NET версия 3.2, сборка 1367
begin
    var s := ReadlnString('>');
    var r := new Regex('\bМама\b');
    Writeln('Количество слов "Мама": ', r.Matches(s).Count);
    s := r.Replace(s, 'Пама');
    s.Println;
end.

все просто и понятно)
только экранирующие символы пришлось поискать для слова целиком

Пример работы программы:
> Мама,Мамам,Мама,мама,Мама
Количество слов "Мама": 3
Пама,Мамам,Пама,мама,Пама

Answer 2

Вот простая и понятная программа на языке Pascal, которая позволяет ввести текст, состоящий из слов, разделенных запятыми, и определить, сколько раз в этом тексте встречается слово "Мама". Кроме того, программа заменяет букву "М" на букву "П" в найденных словах:

program CountAndReplace;
uses crt;

var
  text: string;
  wordCount, i: integer;

begin
  clrscr;
  
  // Ввод текста
  writeln('Введите текст, состоящий из слов, разделенных запятыми:');
  readln(text);
  
  // Инициализация счетчика
  wordCount := 0;
  
  // Разделение текста на слова и подсчет вхождений слова "Мама"
  for i := 1 to length(text) do
  begin
    if (text[i] = ',') or (text[i] = ' ') then
    begin
      if copy(text, i - 3, 4) = 'Мама' then
      begin
        wordCount := wordCount + 1;
        text[i - 2] := 'П';
      end;
    end;
  end;
  
  // Вывод результата
  writeln('Слово "Мама" встречается ', wordCount, ' раз(а) в тексте.');
  writeln('Текст с замененной буквой "М" на букву "П":');
  writeln(text);
  
  readln;
end.

Программа сначала запрашивает у пользователя ввод текста, состоящего из слов, разделенных запятыми. Затем она разделяет текст на слова и подсчитывает количество вхождений слова "Мама". Если слово "Мама" найдено, программа увеличивает счетчик и заменяет букву "М" на букву "П" в найденных словах. В конце программа выводит количество вхождений слова "Мама" и измененный текст.

Примечание: Пожалуйста, учтите, что язык Pascal не является наиболее популярным языком программирования в настоящее время, и его использование ограничено. Если у вас возникнут вопросы или проблемы с выполнением программы, не стесняйтесь задавать вопросы, и я с удовольствием помогу вам.