Question

ПАСКАЛЬ Дана строка, в которой буква h встречается минимум два раза. Удалите из этой строки первое и последнее вхождение буквы h, а также все символы, находящиеся между ними.

Answer 1

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  var ind:=s.ToCharArray.IndexesOf(c->c='h');
  s:=s[:ind.First+1]+s[ind.Last+2:]; s.Println
end.

Пример
434   rfew45dh34r34r34r34r5 34  22342d3h234 23d2her  tert
434   rfew45der  tert

Answer 2

Да, конечно! Вот пример кода на языке программирования Pascal, который выполняет описанную вами задачу:

program RemoveH;
var
  inputStr, outputStr: string;
  firstH, lastH, i: integer;
begin
  // Ввод строки с клавиатуры
  writeln('Введите строку:');
  readln(inputStr);

// Инициализация переменных
  firstH := 0;
  lastH := 0;

// Поиск первого и последнего вхождения буквы 'h'
  for i := 1 to Length(inputStr) do
  begin
    if inputStr[i] = 'h' then
    begin
      if firstH = 0 then
        firstH := i
      else
        lastH := i;
    end;
  end;

// Формирование результирующей строки
  if (firstH > 0) and (lastH > 0) then
  begin
    outputStr := Copy(inputStr, 1, firstH - 1) + Copy(inputStr, lastH + 1, Length(inputStr) - lastH);
    writeln('Результат:', outputStr);
  end
  else
  begin
    writeln('Строка не содержит минимум два вхождения буквы ''h''.');
  end;

readln; // Ждем нажатия Enter перед закрытием окна консоли
end.

Этот код сначала ищет первое и последнее вхождение буквы 'h' в строке, затем формирует новую строку, исключая символы между первым и последним вхождением. Результат выводится на экран. Если в строке менее двух вхождений буквы 'h', программа сообщит об этом.