Question

Выполнить в paskal .... Ввести слово. Вывести слово, полученное путем перестановки местами половинок введенного слова. .... Ввести строку. Подсчитать , сколько в ней символов * D F H. .... Ввести строку. Удалить из нее все цифры.

Answer 1

Var
  s1, s2: string;
  i, n: integer;

begin
  Write('Введите слово: ');
  Readln(s1);
  n := Length(s1);
  i := n div 2;
  s2 := Copy(s1, i + 1, n - i) + Copy(s1, 1, i);
  Writeln('А вот перестановка его частей: ', s2)
end.

Тестовое решение:
Введите слово: тестирование
А вот перестановка его частей: ованиетестир

var
  s: string;
  i, n, c1, c2, c3, c4: integer;

begin
  Write('Введите строку: ');
  Readln(s);
  n := Length(s);
  c1 := 0; c2 := 0; c3 := 0; c4 := 0;
  for i := 1 to n do
    case s[i] of
      '*': c1 := c1 + 1;
      'D': c2 := c2 + 1;
      'F': c3 := c3 + 1;
      'H': c4 := c4 + 1
    end;
  Writeln('В строке встретилось следующее количество символов:');
  Writeln('*-', c1, ', D-', c2, ' F-', c3, ' H-', c4)
end.

Тестовое решение:
Введите строку: WHY DO YOU CRY, WILLI, WHY DO YOU CRY?
В строке встретилось следующее количество символов:
*-0, D-2 F-0 H-2

const
  digits = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];

var
  s1, s2: string;
  i, n: integer;

begin
  Write('Введите строку: ');
  Readln(s1);
  n := Length(s1);
  s2 := '';
  for i := 1 to n do
    if not (s1[i] in digits) then
      s2 := s2 + s1[i];
  s1 := s2;
  Writeln('Строка с исключенными цифрами: ', s1);
end.

Тестовое решение:
Введите строку: Сегодня в 14:52 я получил сообщение, что телепередача в 21:50 не будет интересной.
Строка с исключенными цифрами: Сегодня в : я получил сообщение, что телепередача в : не будет интересной.

Answer 2

Конечно, вот примеры программ на языке Pascal, реализующих указанные задачи:

1. Вывести слово, полученное путем перестановки местами половинок введенного слова:

pascalCopy code
program SwapWordHalves;
var
  word: string;
  lengthHalf, i: integer;
begin
  write('Введите слово: ');
  readln(word);
  
  lengthHalf := Length(word) div 2;
  
  for i := 1 to lengthHalf do
    write(word[lengthHalf + i]);
    
  for i := 1 to lengthHalf do
    write(word[i]);
end.

2. Подсчитать, сколько в строке символов * D F H:

pascalCopy code
program CountCharacters;
var
  str: string;
  count: integer;
  i: integer;
begin
  write('Введите строку: ');
  readln(str);
  
  count := 0;
  
  for i := 1 to Length(str) do
  begin
    if (str[i] = '*') or (str[i] = 'D') or (str[i] = 'F') or (str[i] = 'H') then
      count := count + 1;
  end;
  
  writeln('Количество символов * D F H: ', count);
end.

3. Удалить из строки все цифры:

pascalCopy code
program RemoveDigits;
var
  str: string;
  i: integer;
begin
  write('Введите строку: ');
  readln(str);
  
  for i := Length(str) downto 1 do
  begin
    if (str[i] >= '0') and (str[i] <= '9') then
      Delete(str, i, 1);
  end;
  
  writeln('Результат: ', str);
end.

Надеюсь, это поможет!