Вычеркните из слова X те буквы, которые встречаются в слове Z

@kaze1 · Регистрация: 05.01.2010

@yanyk1n · 06.01.2010, 14:33

Pascal

uses crt;
var x,z:string;
i:integer;
 
begin
 clrscr;
 write('Z -> ');
 readln(z);
 write('X -> ');
 readln(x);
 for i:=1 to length(z) do while pos(z[i],x)>0 do delete(x,pos(z[i],x),1);
 writeln(x);
 readln;
end.

@kaze1 2 / 2 / 0 Регистрация: 05.01.2010 Сообщений: 57
		1
	Вычеркните из слова X те буквы, которые встречаются в слове Z 06.01.2010, 13:01. Показов 4229. Ответов 1 Метки нет (Все метки) Вычеркните из слова X те буквы, которые встречаются в слове Z 0

Опции темы

Вычеркните из слова X те буквы, которые встречаются в слове Z

Решение