Давайте рассмотрим каждое из заданий по очереди и разберем, как их можно выполнить на языке программирования Pascal.

Для этого задания нам нужно сначала ввести слово, найти его середину и затем поменять местами две половины. Вот шаги, которые мы будем выполнять:

1. Вводим слово с помощью процедуры ReadLn.
2. Находим длину слова с помощью функции Length.
3. Считаем индекс середины. Если длина слова четная, середина будет делиться на 2, если нечетная, то будет на 1 меньше.
4. Создаем две подстроки: первую половину и вторую половину слова.
5. Выводим вторую половину, затем первую.

Пример кода:

var
  word: string;
  mid: integer;
begin
  ReadLn(word);
  mid := Length(word) div 2;
  if Length(word) mod 2 <> 0 then
    mid := mid + 1; // Если слово нечетное, добавляем 1 к середине
  WriteLn(Copy(word, mid + 1, Length(word) - mid) + Copy(word, 1, mid));
end;

Для выполнения этого задания нам нужно будет пройтись по каждому символу строки и проверить, является ли он одним из искомых. Вот шаги:

1. Вводим строку с помощью ReadLn.
2. Создаем переменную-счетчик для подсчета символов.
3. Используем цикл для перебора каждого символа строки.
4. Если символ равен D, F или H, увеличиваем счетчик на 1.
5. Выводим значение счетчика.

Пример кода:

var
  str: string;
  count: integer;
  i: integer;
begin
  ReadLn(str);
  count := 0;
  for i := 1 to Length(str) do
  begin
    if (str[i] = 'D') or (str[i] = 'F') or (str[i] = 'H') then
      count := count + 1;
  end;
  WriteLn(count);
end;

Для этого задания мы также будем перебирать каждый символ строки и формировать новую строку, в которую будут добавляться только нецифровые символы. Вот шаги:

1. Вводим строку с помощью ReadLn.
2. Создаем новую строку для хранения результата.
3. Используем цикл для перебора каждого символа строки.
4. Если символ не является цифрой, добавляем его в новую строку.
5. Выводим новую строку без цифр.

Пример кода:

var
  str, result: string;
  i: integer;
begin
  ReadLn(str);
  result := '';
  for i := 1 to Length(str) do
  begin
    if not (str[i] in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) then
      result := result + str[i];
  end;
  WriteLn(result);
end;

Таким образом, мы разобрали три задания, и я надеюсь, что объяснения были понятны. Если есть вопросы, не стесняйтесь задавать!