var
str:string;
i:integer;
t:set of char;
BEGIN
writeln('stroka - ?'); readln(str);
for i:=1 to length(str) do
if str[i] in gb then include(t,str[i]);
Проблема: если в строке имеется две одинаковые буквы, то в создоваемое множество попадает только одна из них, а нужно все - хоть десять одинаковых. Где может быть недочет?
Сообщение отредактировано: volvo -