[Pascal] на множества

[Bullet810]

Привет, ребята вот вродебы проста задачка но меня клинит=)
Вот Условие: Дана Строка слов, в словах где есть 2 одиннаковых согласных буквы все символы заменить на ЗАГЛАВНЫЕ, (строчные и ЗАГЛАВНЫЕ буквы считать одним символом). Пример Кактус - КАКТУС, заранее спасибо

[Косюра]

ну смотри.
читаешь посимвольно и
chr(ord(s[i]-32)
вроде так.
прогонять с условием
if S[i] in Sogl then
где
Sogl:=['b'..'z']+['б'..'щ']-['e','y,'u','i','o','у','е','ы','а', 'о','и']

[Hacker19_90]

Сообщение от Косюра

ну смотри.
читаешь посимвольно и
if s[i]='a' then s[i]:=chr(ord(s[i]-32)
вроде так.

Вот ток помнить надо, что русские символы в два массива распологаются
от а до п от р до я

[Bullet810]

извините, но зачем там гласные буквы, можно ведь создать множество только согласных букв

[Косюра]

я отредактировала свое сообщение. посмотри.