VI
заполнить множество можно попробовать так:
for i := 1 to Length(s) do
s := s + s[i];
дальше проверка на вхождение if CharInSet('a', s) then печатаем
может и какой-то более элегантный способ есть
for i := 1 to Length(s) do
s := s + s[i];
дальше проверка на вхождение if CharInSet('a', s) then печатаем
может и какой-то более элегантный способ есть
Delphi 7 ругается на CharInSet
