var set1, set2:set of char;
c:integer;
s:string;
begin
c:=length(s);
set1:=[];set2:=[];
while c>0 do
begin
if not(s[c] in set1) then set1:=set1+[s[c]] // буква встретилась либо в первый раз либо в 3
else if not (s[c] in set2) then
begin // буква встретилась 2 раз
set1:=set1-[s[c]];
set2:=set2+[s[c]];
end;
dec(c);
end;
end.
Need Help, plizzz!!!
Вводится строка. Пройдя по данной строке 1 раз (без вложенных циклов) построить множество символов, встречающихся в ней ровно 2 раза.
Tolko plizz s mnozestvom, a ne s massivom! Zaranie spasibo!
[COLOR="Red"]Или ты читаешь правила форума Делфи и перестаешь их нарушать(называть нормально темы) или в следущий раз я тему удалю со всеми ответами, а тебя отправля в бан. Это уже 2 нарушение.[/COLOR] OlgaKr.
P.S. вероятно удалили модераторы
я могу предложить 2 множества:
Код:
BOlwoe Spasibo