Написать программу для решения задачи

+ 0 -

Заяночка

30 янв. 2014 г., 7:52:42 (10 лет назад)

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.

Тестовое решение:
Введите текст:    тестовая   -строка - в ней много-много тире в разных-  преразных вариантах - и в таком даже
Обработанный текст: тестовая - строка - в ней много - много тире в разных - преразных вариантах - и в таком даже

+ 0 -

Tysik84

30 янв. 2014 г., 9:45:34 (10 лет назад)

Паскаль? Какая версия? Турбо, Фри, АВС, АВС.NET или что-то еще?

+ 0 -

Thebug1977

30 янв. 2014 г., 10:44:17 (10 лет назад)

ABC NET

+ 0 -

Dg8

30 янв. 2014 г., 12:34:15 (10 лет назад)

Там это сделать ну очень просто)))))

+ 0 -

Megiki

30 янв. 2014 г., 14:01:46 (10 лет назад)

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