
     12. 
    ~~~~~~~~~~~~~~~~~~~

    ⢮ -    ᮢ㯭 易 ꥪ⮢,  
 ᬠਢ   楫.   ꥪ   ⠪
⢥ 뢠    ⢠.  ਬࠬ
  㦨:

    1)  楫 ᫠  0  100;
    2) 㪢 䠢;
    3)  㪢 䠢.

     ⢠ ࠢ ⮣  ⮫쪮 ⮣,    -
 ᮢ.   ⮬ 冷  ⢥. , -
⢠ [1,3,5],  [5,3,1], [3,5,1] ࠢ. ᫨ 童  -
⢠    ⠪ 童 㣮 ⢠,  ࢮ -
⢮ 뢠 祭  ஥. ,  ਢ 
ਬ ⢮ 3) 祭  ⢮ 2).

      樨  ⢠,  -
 ᫮, 㬭  ⠭ 楫 ᥫ:

    1)   (  㬬)   A  B (뢠-
         A+B) -  ⢮, ᮤঠ饥  童 -
        A  B.  ਬ, ꥤ  [1,3,5,7] 
       [2,3,4]  [1,2,3,4,5,7].

    2)  ( ந)   A  B  (-
       뢠  A*B) -  ⢮  ⮢, -
        室   ⢮ A,    ⢮ B. , -
       祭  [1,3,4,5,7]  [2,3,4]  [3,4].

    3)   (  ⠭)  ⢠ B  ⢠ A
       (뢠  A-B) -    ⢮    ⮢
       ⢠ A,    ⠬ ⢠ B.
       , [1,3,5,7]-[2,3,4]  [1,5,7].


    । ⨯ ⢠
    ==========================

        ⥬⨪,    ࠭祭  ꥪ,
     ⠬  ⢠.  ᪠  ᪠
⮫쪮 ࠭祭    .      ⢠
   ⨯,   뢠  . -
 ⨯    ⨯,  ..   ⨯,
 ᪫祭 REAL.   ⢠  १ࢨ஢묨
᫮ SET OF,  묨 ᫥ ⮩ ⨯.

ਬ:
--------

    type
      DayOfMonth = set of 0..31;
      WorkWeek = set of Mon..Fri;
      Letter = set of 'A'..'Z';
      AdditiveColors = set of (Red,Green,Blue);
      Characters = set of Char;

     ࡮-᪠ ᨬ쭮 ᫮ ⮢ ⢠ ࠢ-
 256,   浪 祭  ⨯    -
  0  255.


    ࠦ  ⢠
    =======================

    祭 ⨯  ⢠   祭  㣨 -
祭 ⨯ ⢠   ࠦ.  ࠦ  -
   ⠭ ⨯ ⢠,  ६ ⨯ -
⢠, ⢥ 権    権    -
⢠.

    ⢥ 樨
    -------------------------

    ⢥  ⮨     ᯥ-
䨪権 , ࠧ 묨  祭  -
 ᪮. 䨪  -  ࠦ ⮣  ⨯,
   ⨯ ⢠,   ,  ᠭ  
⠪ ࠦ, ࠧ  ᫥⥫묨 窠.

ਬ:
--------

    ['T','U','R','B','O']
    [X,Y]
    [X..Y]
    [1..5]
    ['A'..'Z','a'..'z','0'..'9']
    [1,3..10,12]
    []

    ᫥ ਬ   뢠    ,  ஥,
᪮  ᮤন ࠦ,  㪠뢠  ⨯, ᮢ-
⨬   ⨯ ⢠.  ⢮ [1..5] ⭮
 [1,2,3,4,5]. ᫨ X > Y,  [X..Y]  ⮥ -
⢮.


    樨  ⢠
    ------------------------

     ਮ 樨  ⢠ ࠧ   ᫥-
騥  ⥣ਨ:

    1) *   祭 

    2) +   ꥤ 
       -    

    3) =   ஢ઠ  ࠢ⢮
       <>  ஢ઠ  ࠢ⢮
       >=  ⨭ (TRUE), ᫨ ன ࠭ 祭  
       <=  ⨭ (TRUE), ᫨  ࠭ 祭  ன
       IN  ஢ઠ  ਭ  .  ன ࠭
             ⨯ ⢠,    ࠭ 
            ⮣  ⨯,     ⨯ ⢠. -
           ⮬ 樨  㤥 TRUE,  ᫨  ࠭
           ਭ ஬ ࠭,   FALSE    ⨢
           砥.

       樨 ஢ન 祭,    
 ணࠬ஢ :

    A*B=[]

    ࠦ  ⢠        ᫮
஢ப. ਬ, ஢ઠ:

    if (Ch='T') or (Ch='U') or (Ch='R') or (Ch='B') or (Ch='O')
       then ...

      ᠭ  ⭮ :

    if Ch in ['T','U','R','B','O'] then ...


     ஢:

    if (Ch>='0') and (Ch<='9') then ...

      :

    if Ch in ['0'..'9'] then ...



    ᢠ 祭 ⢠
    ================================

    祭, 騥  १⮬  ࠦ  ⢠,
  ᢮ ६ ⢥ ⨯    
 ᢠ  := .

ਬ:
--------

    type
      ASCII = set of 0..127;
    var
      NoPrint,Print,AllChars: ASCII;
    begin
      AllChars:= [0..127];
      NoPrint := [0..31,127];
      Print   := AllChars-NoPrint;
    end.
