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

@Светлан0чка · Регистрация: 01.04.2013

заранее большое спасибо!

@Puporev · 06.04.2013, 09:23

Pascal

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

@Светлан0чка 0 / 0 / 0 Регистрация: 01.04.2013 Сообщений: 32
		1
	Удалите из второй строки все символы, которые встречаются в первой строке, и поместите их в третью строку 05.04.2013, 22:16. Показов 1440. Ответов 1 Метки нет (Все метки) заранее большое спасибо! 0

Опции темы

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

Решение