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

[Banny]

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





Заранее благодарю вас!

[lexus_ilia]

Лови

Program xa;
var
 s,s1:string;
 i,k,b:integer;
 p:boolean;
begin
 Writeln('BBedute Ctpoky');
 readln(s);
 b:=length(s);
 for i:=1 to b do
 begin
  k:=1;
  p:=true;
  while (k<=b) and (p) do
  begin
   if (s[k]=s[i]) and (k<>i) then
    p:=false;
   inc(k);
  end;
  if p then
   write(s[i])
 end;
 readln
end.

[RealSHELS]

Вроде так.

program _1;
uses crt;
var
i,j:integer;
s:string;
c:byte;
begin
  clrscr;
  readln(s);
  c:=0;
  for i:=1 to length(s) do
    begin
      c:=0;
      for j:=1 to length(s) do
        if (s[i]=s[j]) and (i<>j) then c:=c+1;
      if c=0 then write(s[i]);
    end;
  readln;
end.

[Banny]

Благодарю.