Множество из гласных букв, Вроде бы все очень просто Опции

[pank]

Дана задача: создать множество гласных букв из вводимой с клавиатуры строки. Я вроде бы все написала (чего туту писать то)

Код

const gb=['a','o','e','i','u','y','j'];
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 - 27.01.2006 11:32