Найти символы строки, которые встречаются не более одного раза

@serzhinform · Регистрация: 11.09.2013

Нужно найти символы которые встречаются не более одного раза .
ввод:Символы записаны без пробелов
вывод: В выходной файл выводятся неповторяющиеся символы, записаны через пробел. Если таковых нет, то - «No»
например:
z.in (baizhanov)
z.out (b i z h n o v)

@APALoff · 12.11.2014, 10:08

Pascal

Var
  S : String;
  i : Byte;
Begin
  S:='baizhanov';
  For i:=1 to Length(S) do
    If Pos(S[i],Copy(S,1,i-1)+Copy(S,i+1,Length(S)-i-1))=0 then Write(S[i],' ');
  Writeln;
end.

@serzhinform 1 / 1 / 0 Регистрация: 11.09.2013 Сообщений: 23
		1
	Найти символы строки, которые встречаются не более одного раза 12.11.2014, 08:52. Показов 1325. Ответов 1 Метки нет (Все метки) Нужно найти символы которые встречаются не более одного раза . ввод:Символы записаны без пробелов вывод: В выходной файл выводятся неповторяющиеся символы, записаны через пробел. Если таковых нет, то - «No» например: z.in (baizhanov) z.out (b i z h n o v) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти символы строки, которые встречаются не более одного раза

Решение