непонятно условие о множествах - Turbo Pascal

Формулировка задачи:

народ обьясните плиз, просто непонял само условие. сконструировать множество, элементами которых есть буквы 'а'..'т' . Вывести их на экран, предвидить ввод з клавиатуры еще каких небудь символов и определить принадлежность данного элемента новому множеству! вот мой код:
var
   s:set of char;
   symbol:char;
   begin
   s:=[#1072..#1090];
   repeat
   writeln('vvedi simvoli do mnozhini');
   readln(symbol);
    s:=s+[symbol];
    until symbol = '=' ;
   If symbol in s then
   write(s,'');
   end.
н в принципе работает, все выводит, и буквы от а до т и новые элементы. но вот непонимаю этого: определить принадлежность данного элемента новому множеству! мне еще один If условие нужно дописать до свого кода?? чтобы оно игнорировало какие то например символы? не напишу же я просто If symbol in s then writeln('mnozhestvo prinadlezhit'); Поясните плиз


textual

Код к задаче: «непонятно условие о множествах - Turbo Pascal»

var
  s: set of char;
  symbol: char;
 
begin
  s := [#1072..#1090];
  repeat
    writeln('vvedi simvoli do mnozhini');
    readln(symbol);
    s := s + [symbol];
  until symbol = '=';
  
  writeln('Введите символ для проверки:');
  readln(symbol);
  
  if symbol in s then
    writeln(symbol, ' принадлежит множеству: ', s);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.889 из 5

Источник
Похожие ответы