Написать программу для решения a) удалить из текста все введенные символы. b) в заданном тексте после каждого знака ‘–’ и перед каждым таким знаком вставить пробел, если его там нет.

Var   s, s_rej, s2: string;   i: integer; begin   write('введите текст: '); readln(s);   write('введите исключаемые символы подряд: '); readln(s_rej);   s2 : = '';   for i : = 1 to length(s) do       if pos(s[i], s_rej) = 0 then s2 : = s2 + s[i];   writeln('обработанный текст: ', s2) end. тестовое решение: введите текст: пример текста, из которого будут исключены гласные буквы введите исключаемые символы подряд: аеёиоуэюя обработанный текст: прмр ткст, з ктрг бдт склчны глсны бквы var   s, s2: string;   i: integer;   c: array of string; begin   write('введите текст: '); readln(s);   s: =trim(s);   c: =s.split('-');   s2: =trim(c[0]);   for i: =1 to length(c)-1 do       s2: =s2+' - '+trim(c[i]);   writeln('обработанный текст: ', s2) end. тестовое решение: введите текст:       тестовая    -строка - в ней много-много тире в разных-  преразных вариантах - и в таком даже обработанный текст: тестовая - строка - в ней много - много тире в разных - преразных вариантах - и в таком даже

program painnagato; uses crt; const n=3; var i,j: integer;   a: array[1..n] of integer;   b: array[1..n,1..n] of integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   for i: =1 to n do      begin          write('введите ',i,'-е число ');           readln(a[i]);       end;   writeln('результат: ');   for i: =1 to n do      begin          for j: =1 to n do              begin                  b[i,j]: =a[i]-3*a[j];                   write(b[i,j]: 5);               end;           writeln;       end; end.

1) в свободную ячейку, например f2 пишешь формулу если *имя ячейки с округом* = "св", то значение истина равно ячейке с предметом, в знаечение ложь ставишь пробел. далее формулу растягиваешь до конца таблицы, после в ячейка h2 пишешь формулу счет если выделяешь ячейки в которых формула если и в окне   критерий пишешь: "". 3 делаешь аналогично

  2) опять становишься в любую ячейку, вставляешь формулу если *имя ячейки* = "сз", то значение истина равно *имя ячейки с *, в значении ложь ставишь пробел.

растягиваешь формулу до конца таблицы. далее в ячейку н3 вставляешь формулу срзнач и выделяшь всю калонку в которой формула если. ну а 4 аналогично