Необходимо составить программу в Паскале

[Диана Таипова]

Напишите функцию, которая исключает из s1 любой из символов строки s2

[VIK_aka_TOR]

здесь можно либо перебором сравнения и удаления.. либо занести s2 во множество... и перебирать значения s1 и проверять на наличие одинаковых элементов в массиве...
второй метод будет быстрее... с точки зрения циклов...)

[VIK_aka_TOR]

здесь можно либо перебором сравнения и удаления.. либо занести s2 во множество... и перебирать значения s1 и проверять на наличие одинаковых элементов в массиве...
второй метод будет быстрее... с точки зрения циклов...)

[Asinkrit]

function GetRemStr(const SourceStr, RemStr:String):String;
var
  s,r:byte;
  f:boolean;
begin
  Result:='';
  for s:=1 to Length(SourceStr) do
    begin
    f:=false;
    for r:=1 to Length(RemStr) do
      if SourceStr[s] = RemStr[r] then
        begin
        f:=true;
        Break;
        end;
    if not f then Result:=Result+SourceStr[s];
    end;
end;

[Диана Таипова]

Спасибо огромное)))))))