Question

определить можно ли из строки (а) вычеркнув некоторые символы получить строку (б) можно в паскале или питоне

Answer 1

Ответ:

program StringAB;

var

 a, b: string;

 c: Char;

 i, p: Integer;

 bb: Boolean;

begin

 WriteLn ('Введите строки a и b: ');

 ReadLn (a);

 ReadLn (b);

 bb := True;

 for i := 1 to Length (b) do begin

   c := b [i];

   p := Pos (c, a);

   if p > 0 then begin

     Delete (a, 1, p);

   end else begin

     bb := False;

     Break;

   end;

 end;

 if bb then

   WriteLn ('Можно получить')

 else

   WriteLn ('Нельзя получить');

 ReadLn;

end.