Выбрать и напечатать только те символы что встречаются в тексте один раз

@Storiy · Регистрация: 12.03.2013

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

Из заданного текста предложения выбрать и напечатать только те символы что встречаются в нем только один раз ( в том порядке в котором они встречаются в тексте)
Надеюсь на местных умельцев

@Striker · 03.06.2013, 11:56

Pascal

var
  s: string;
  i, j, col: integer;
 
begin
  Readln(s);
  j := 1;
  repeat
    col := 0;
    i := 1;
    repeat
      if(s [j] = s[i]) then
        inc(col);
      inc(i);
    until i > length(s);
    if col = 1 then
      Write(s[j]:3);
    inc(j);
  until j > length(s);
end.

@Storiy · 03.06.2013, 12:02 **[ТС]**

Спасибо, большое!

@Storiy 1 / 1 / 1 Регистрация: 12.03.2013 Сообщений: 38
		1
	Выбрать и напечатать только те символы что встречаются в тексте один раз 03.06.2013, 11:49. Показов 2130. Ответов 2 Метки нет (Все метки) Из заданного текста предложения выбрать и напечатать только те символы что встречаются в нем только один раз ( в том порядке в котором они встречаются в тексте) Надеюсь на местных умельцев 0

@Storiy 1 / 1 / 1 Регистрация: 12.03.2013 Сообщений: 38
	03.06.2013, 12:02 [ТС]	3
	Спасибо, большое! 0

Опции темы

Выбрать и напечатать только те символы что встречаются в тексте один раз

Решение