Дана строка. Удалить из строки все символы которые встречаются в ней только один раз

@DASHA_93 · Регистрация: 07.07.2013

Помогите решить пожалуйста задачу. Дана строка. Удалить из строки все символы которые встречаются в ней только один раз.

@Puporev · 15.07.2013, 20:40

Pascal

uses crt;
var s:string;
    i,j,k:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
for i:=length(s) downto 1 do
 begin
  k:=0;
  for j:=1 to length(s) do
  if(s[j]=s[i])and(j<>i) then k:=1;
  if k=0 then delete(s,i,1)
 end;
if s='' then write('Все символы по 1 разу-удалены')
else write(s);
readln
end.

@DASHA_93 0 / 0 / 0 Регистрация: 07.07.2013 Сообщений: 72
		1
	Дана строка. Удалить из строки все символы которые встречаются в ней только один раз 15.07.2013, 19:16. Показов 1177. Ответов 1 Метки нет (Все метки) Помогите решить пожалуйста задачу. Дана строка. Удалить из строки все символы которые встречаются в ней только один раз. 0

Опции темы

Дана строка. Удалить из строки все символы которые встречаются в ней только один раз

Решение