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

Помогите написать программу для delphi или pascal.

Question

Информатика

Филюха

23 апреля, 21:07

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

Помогите написать программу для delphi или pascal.

+3

Ответы (1)

Знаете ответ?

Марьюшка · Answer 1

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

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

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

Помогите написать программу для delphi или pascal.