Помогите пожалуйста с задачей, Паскаль Лазарус.
задана строка из нескольких слов. слова в строке разделены одним пробелом,в конце поставлена точка. Удалите из строки буквы, указанные пользователем. Предусмотрите ввод исходной строки,букв и вывод преобразованной строки.
Ответы
Ответ дал:
0
Ответ:
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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад