Question

Помогите пожалуйста с задачей, Паскаль Лазарус.
задана строка из нескольких слов. слова в строке разделены одним пробелом,в конце поставлена точка. Удалите из строки буквы, указанные пользователем. Предусмотрите ввод исходной строки,букв и вывод преобразованной строки.

Answer 1

Ответ:

Free Pascal

var

s, a : string;

i, p:integer;

begin

 writeln('Введите строку:');

 readln(s);

 writeln('Введите удаляемый символ(ы):');

 readln(a);

 p:=pos(a, s);

 while p > 0 do begin

   delete(s, p, length(a));

   p:=pos(a, s);

 end;

 writeln(s);

end.