Может ли две строки иметь одинаковые символы? Опции

[ramzes5000]

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

[Client]

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

[ramzes5000]

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

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

[ramzes5000]

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

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


вот, что есть

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

Сообщение отредактировано: Lapp - 28.04.2010 12:21

[ramzes5000]

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

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

Сообщение отредактировано: ramzes5000 - 28.04.2010 6:58

[Ozzя]

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

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

Сообщение отредактировано: Ozzя - 28.04.2010 7:51

[Гость]

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

[Гость]

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

[Ozzя]

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

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

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

[TarasBer]

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

  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 мин.
Я за Рамзеса плюс нажал, если что.

[volvo]

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

[TarasBer]

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

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