Помогите пожалуйста решить, заранее благодарен

[denis2107]

Помогите пожалуйста решить, заранее благодарен

Решить при помощи множества
"Определить, какие символы в строке встречаются более одного раза"

 

[Vladimir_S]

Решить при помощи множества
"Определить, какие символы в строке встречаются более одного раза"

Например, так:

Var
 S:String;
 i:Byte;
 Sym,Sym1:Set of Char;
Begin
 Writeln('Enter the string:');
 Readln(S);
 Sym:=[];
 Sym1:=[];
 For i:=1 to Length(S) do
  if (S[i] in Sym) and Not(S[i] in Sym1) then
   begin
    write(S[i]+' ');
    Sym1:=Sym1+[S[i]];
   end
  else
   Sym:=Sym+[S[i]];
 readln;
End.