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

[ramzes5000]

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

[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