Удалить из строки слова, содержащие повторяющиеся символы

@Dante97 · Регистрация: 05.11.2014

Author24 — интернет-сервис помощи студентам

Дана строка, состоящая из слов. Удалить из строки слова, содержащие повторяющиеся символы.

@Arigato · 26.10.2015, 11:32

Pascal

var
  s: string;
  i,p: integer;
  letters: set of char;
  flag: boolean;
 
begin
  readln(s);
  letters:=[];
  flag:=false;
  p:=length(s);
  for i:=p downto 0 do begin
    if (i=0) or (s[i]=' ') then begin
      if flag then delete(s,i+1,p-i);
      p:=i;
      letters:=[];
      flag:=false;
    end else begin
      if s[i] in letters then flag:=true;
      letters:=letters+[s[i]];
    end;
  end;
  writeln(s);
  readln;
end.

@Dante97 0 / 0 / 0 Регистрация: 05.11.2014 Сообщений: 39
		1
	Удалить из строки слова, содержащие повторяющиеся символы 25.10.2015, 11:36. Показов 2778. Ответов 1 Метки нет (Все метки) Дана строка, состоящая из слов. Удалить из строки слова, содержащие повторяющиеся символы. 0

	26.10.2015, 11:32

Опции темы

Удалить из строки слова, содержащие повторяющиеся символы

Решение