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

denis2107 · 11.12.2012, 13:36

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

Vladimir_S · 11.12.2012, 20:41

Цитата:

Сообщение от denis2107

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

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

Код:

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.

11.12.2012, 13:36	#1 (permalink)
denis2107 Новичок Регистрация: 11.12.2012 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста решить, заранее благодарен Решить при помощи множества "Определить, какие символы в строке встречаются более одного раза"

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070