Удалить буквы «М», стоящие после «Н», если только после «М» не стоит «А». Подсчитать общее количество букв «Б» в строке

@ren1koV · Регистрация: 27.09.2021

Студворк — интернет-сервис помощи студентам

В задаче задается строка текста, состоящая из нескольких слов. Слова отделяются последовательностью пробелов.

Удалить буквы «М», стоящие после «Н», если только после «М» не стоит «А». Подсчитать общее количество букв «Б» в строке.

Исправьте пожалуйста код что бы работало правильно, т.к. буквы Б он считает, а вот если НМ вместе , то выбивает ошибку, хотя должен просто удалить и вывести как в условии расписано.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
var s:string;
i,r,j,p,g,l,k:integer;
begin
 Writeln('Введие сроку символов:');
 Readln(s);
 p:=0;
 l:=0;
 for i:=1 to Length(s) do
   begin
   if (s[i]='б') then
     begin
          p:=p+1;
        end;
    end;
    writeln('Количество букв б:',p);
 for j:=1 to Length(s) do
    begin
    if (s[j]='н') then
        begin
          r:=j+1;
          if (s[r]='м') then 
            g:=j+2;
          if s[g]='а' then
            l:=l+1 
            else 
              begin
                Delete(s,r,1);
              end;
          writeln(s);
         end;
        end;
 writeln(s);
end.

@Cyborg Drone · 05.12.2021, 22:17

Условие вхождения и окончания цикла for рассчитываются только один раз, перед началом цикла. Допустим, length(s)=20, тогда выход из цикла в строке 16 будет при j>20. Если в строке 27 length(s) уменьшится, то в строке 18 произойдёт выход за границы индексов строки s, и программа завершится аварийно. Для того, чтобы такого не случилось, строку следует просматривать с конца.

Программа Ваша несколько тяжеловесна, я бы вот так сделал:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  s: string;
  i, b: integer;
begin
  writeln('Введите сроку символов:');
  readln(s);
  for i := length(s) downto 1 do
    if s[i] = 'б' then inc(b)
    else
      if (i >= 3) and (s[i] <> 'а') and (s[i-1] = 'м') and (s[i-2] = 'н') then
        delete(s, i-1, 1);
  writeln('Преобразованная строка:');
  writeln(s);
  writeln('Количество букв "б": ', b)
end.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

Удалить буквы «М», стоящие после «Н», если только после «М» не стоит «А». Подсчитать общее количество букв «Б» в строке

Решение