
   15.  
   ,     
       .

       ,    ?
    ,   .   -
        
  .   ?
       . ,    
.        ,
  . ,    
      -
   .     
 .    . ,  
   ,   .  -
  ,   2*2  5  .    
.        -
!      - .
         .   -
,    . ,  
 .      
,   , , .  
  .      "" 
"".     .   -
     ( - -
),    ,       
.
       .    , -
  .    , 
     . 
    ,     ,   -
      -
 .       

     10 CLEAR 10000

   ,     
    .    
  .   O$(50) -   -
.    Q$(50,50) -  ,   -
 .      

     20 DIM O$(50),Q$(50,50)

  

     30 CLS

     .   
""  "".      . -
      "":

     40 $(2)="":$(1)="":Q$(1,2)=""

    :

     50 M=2
     60 PRINT " "
     70 I=1
     80 FOR J=I+1 TO M:IF Q$(I,J)="" THEN 110
     90 PRINT Q$(I,J);
     100 INPUT A$:IF $="" THEN ()
     110 NEXT J.

   . ,  . -
      ,   
     (M=2).     
(I=1).        
,           -
.       
.    ,   
.         
  Q$.
        .   ? 
  "", ""  "".    -
.    ,        100,
       ""
 .   .  
 ""     . , ,  -
    .    :

     112 IF A$="" THEN ()
     114 IF A$="" THEN ()

  ,   ,    . 
  110-114  .   100 -
  :

     100 INPUT A$:IF (A$="") OR (A$="") OR (A$="")
         THEN ()

   ,      
OR. ,    , ,  -
 OR  "".*)
          100 , 
     "".
         .   -
     ?    
    ,   ,     
 (). , ,  ,  
 .        
.      ,  - -
    .    
  :

     120 PRINT O$(I);:INPUT $:IF (A$="") OR (A$="")
         OR (A$="") THEN 130 ELSE 140
     130 PRINT "!!!" GOTO 60
     140 PRINT "   ?":INPUT O$(M+1)
     150 PRINT "   ,   ?":
         INPUT O$(I,M+1)
     160 =M+1:CLS
     170 GOTO 60
     180 I=J
     190 IF I<M THEN 80
     200 IF I=M THEN 120
     210 END

    100 ,    

     100 INPUT A$:IF (A$="") OR (A$="") OR (A$="")
         THEN 180

       .      
 100 ,      
 ,   .   
    ,    -
.    ,     
 ,  ,  ,   .
 ,     .  , -
,   ,   -
    .      
(O$(50))    ,      -
 .       
.    ,    -  -
  .
     ,  .   ,  -
  .      
         .
         .   ,
    ,  -  -
.      :
"true" - ""  "false" - "".  -
 ,      
 ,   . , 
     .
     "".   -
?   100  :

     100 INPUT A$:IF (A$="") OR (A$="") OR (A$="")
         THEN 180

,    IF

     (A$="") OR (A$="") OR (A$="")

 ,      

     $=""
     $=""
     $=""

 .  ,    -
 :

     true OR false=true
     true OR true=true
     false or false=false

       .    -
   AND ("").   
:

     true AND true=true
     false AND true=false
     false AND false=false

 ,      
,    ,     -
   .
         .
    .   NOT,  
  "".    :

     NOT true=false
     NOT false=true

          
.     .  -
  true  false,     -
 .     NOT -
  .       
 .    ?  ,
 .  ,     - "-
"  "".  ,     
    .
            -
      ,
..   IF...THEN

     IF () OR () THEN ()

  ,       
.

     IF () AND () THEN ()

  ,      -
.

     IF NOT () THEN ()

  ,    .
         ,  
     :

     IF (2=5) OR (3=3) THEN PRINT ""
     IF (2=5) AND (3=3) THEN PRINT ""
     IF NOT (2=5) THEN PRINT ""
     IF (NOT (2=5)) AND (3=3) THEN PRINT ""
     IF (NOT (2=5)) AND (NOT (1=2)) THEN PRINT ""

     .


     *)
      ,    , 
      -
.      : "  
 ".  -    .

 L   2      TXT           z +   GLAWA15 TXT            % %  GLAWA16 TXT           %3@  