Строки: Дана последовательность символов(строка). Если какой-то элемент встречается в ней более одного раза, оставить только первое вхождение

27.11.2012, 16:38. **Показов** 1884. **Ответов** 1

помогите решить.. Дана последовательность символов(строка). Если какой-то элемент встречается в ней более одного раза, оставить только первое вхождение.

@Puporev · 27.11.2012, 18:13

Pascal

uses crt;
var s:string;
    i,j:integer;
begin
clrscr;
writeln('Введите строку');
readln(s);
i:=1;
while i<length(s) do
 begin
  for j:=length(s) downto i+1 do
  if s[j]=s[i] then delete(s,j,1);
  i:=i+1;
 end;
write(s);
readln
end.

fatron
		1
	Строки: Дана последовательность символов(строка). Если какой-то элемент встречается в ней более одного раза, оставить только первое вхождение 27.11.2012, 16:38. Показов 1884. Ответов 1 Метки нет (Все метки) помогите решить.. Дана последовательность символов(строка). Если какой-то элемент встречается в ней более одного раза, оставить только первое вхождение.

Опции темы

Строки: Дана последовательность символов(строка). Если какой-то элемент встречается в ней более одного раза, оставить только первое вхождение

Решение