Предмет: Информатика, автор: danilasovelev3556

Даны две строки. Вычеркнуть из строки A символы,не встречающиеся в строке B.
Помогите написать программу для delphi или pascal.

Ответы

Автор ответа: petyaGavrikov
0
var a,b:string; i:integer;
begin
write('a: ');
readln(a);
write('b: ');
readln(b);
for i:=length(a) downto 1 do
 if pos(a[i],b)=0 then delete(a,i,1);
writeln(a);
end.

Пример:
a: primer
b: write
rier
Похожие вопросы
Предмет: Русский язык, автор: ponfilovamarta
Предмет: Музыка, автор: ilovekazutora
Предмет: Математика, автор: ser0974