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

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 не будет интересной. Строка с исключенными цифрами: Сегодня в : я получил сообщение, что телепередача в : не будет интересной.