Удалить из первой строки символы, которые встречаются во второй строке

@viktoriya95 · Регистрация: 21.02.2014

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, составить программу:
Удалить из первой строки символы, которые встречаются во второй строке.

@Puporev · 22.02.2014, 14:32

Pascal

i:=1;
while  i<=length(s1) do
if pos(s1[i],s2)>0 then delete(s1,i,1)
else i:=i+1;

@viktoriya95 · 26.02.2014, 17:41 **[ТС]**

Спасибо, скажите пожалуйста, как оформить эту программу через процедуры и функции?

@Puporev · 26.02.2014, 17:56

Pascal

uses crt;
procedure del(var s1:string;s2:string);
var i:byte;
begin
i:=1;
while i<=length(s1)do
if pos(s1[i],s2)>0 then delete(s1,i,1)
else i:=i+1;
write(s1)
end;
var s1,s2:string;
begin
clrscr;
writeln('Введите 1 строку');
readln(s1);
writeln('Введите 2 строку');
readln(s2);
del(s1,s2);
readln
end.

@viktoriya95 · 26.02.2014, 17:59 **[ТС]**

Огромное спасибо!!

@viktoriya95 9 / 0 / 0 Регистрация: 21.02.2014 Сообщений: 80
		1
	Удалить из первой строки символы, которые встречаются во второй строке 22.02.2014, 13:56. Показов 2381. Ответов 4 Метки нет (Все метки) Помогите, пожалуйста, составить программу: Удалить из первой строки символы, которые встречаются во второй строке. 0

@viktoriya95 9 / 0 / 0 Регистрация: 21.02.2014 Сообщений: 80
	26.02.2014, 17:41 [ТС]	3
	Спасибо, скажите пожалуйста, как оформить эту программу через процедуры и функции? 0

@viktoriya95 9 / 0 / 0 Регистрация: 21.02.2014 Сообщений: 80
	26.02.2014, 17:59 [ТС]	5
	Огромное спасибо!! 0

Удалить из первой строки символы, которые встречаются во второй строке

Решение