Начальник поставил задачу:
Может ли две строки иметь одинаковые символы?
Помогите пожалуйста!

"строка1" и "вторая строка" имеют одинаковые символы? имеют.
или тут что то другое?

спасибо, уточню.

подкинули еще задачу

удалить в строке символ, который повторяется максимальное количество раз.


вот, что есть

var s: string;
     i: integer;
 begin
   writeln('введите строку');
   readln(s);
   for i:=length(s) downto 1 do
     begin
       if s[i]=s[i-1] then delete(s,i,1);
     end;
   writeln(s);
 end.

М

ramzes5000, пожалуйста, вставляй иногда символ конца строки в код. Не у всех мониторы с разрешением 2400 по горизонту.. Исправлено. Lapp

правда ли что две строки не используют общих символов?

Переделать под Вашу задачу.
Удаление повторяющихся элементов массива

всем спасибо, по моему справились

хотел повысить Вам репутацию - кнопка не жмется

У гостя нет такой возможности

Добавлено через 2 мин.
репутация

Кстати, в ЧЗВ есть алгоритм удаления из массива элементов, удовлетворяющих какому-либо условию, за линейное время без доп.памяти?
Типа такого:

  j := 0;
  for i := 0 to Length(Arr) - 1 do if not MustDel(i) then begin
    Arr[j] := Arr[i];
    Inc(j);
  end;
  SetLength(Arr, j);

Добавлено через 1 мин.
Я за Рамзеса плюс нажал, если что.

Нет, и не будет. Динамические массивы - это не Паскаль.

Блин, я не про динамические массивы, а про алгоритм.
Если хотите, то вот так:

  j := 0;
  for i := 0 to LArr - 1 do if not MustDel(i) then begin
    Arr[j] := Arr[i];
    Inc(j);
  end;
  LArr := j;