Предмет: Информатика,
автор: danilasovelev3556
Даны две строки. Вычеркнуть из строки A символы,не встречающиеся в строке B.
Помогите написать программу для delphi или pascal.
Ответы
Автор ответа:
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
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
Предмет: Математика,
автор: tolmacevvlab765
Предмет: Математика,
автор: ser0974
Предмет: Биология,
автор: ирина22081998