32 lines
1.6 KiB
Plaintext
32 lines
1.6 KiB
Plaintext
PRINT "Los apartamentos están numerados del 0 (bajo) al 4 (ático)."
|
|
PRINT "Baker, Cooper, Fletcher, Miller y Smith viven en apartamentos diferentes."
|
|
PRINT "- Baker no vive en el último apartamento (ático)."
|
|
PRINT "- Cooper no vive en el piso inferior (bajo)."
|
|
PRINT "- Fletcher no vive ni en el ático ni en el bajo."
|
|
PRINT "- Miller vive en un apartamento más alto que Cooper."
|
|
PRINT "- Smith no vive en un apartamento adyacente al de Fletcher."
|
|
PRINT "- Fletcher no vive en un apartamento adyacente al de Cooper."
|
|
PRINT
|
|
FOR baker = 0 TO 3
|
|
FOR cooper = 1 TO 4
|
|
FOR fletcher = 1 TO 3
|
|
FOR miller = 0 TO 4
|
|
FOR smith = 0 TO 4
|
|
IF baker <> cooper AND baker <> fletcher AND baker <> miller AND baker <> smith AND cooper <> fletcher THEN
|
|
IF cooper <> miller AND cooper <> smith AND fletcher <> miller AND fletcher <> smith AND miller <> smith THEN
|
|
IF miller > cooper AND ABS(smith - fletcher) <> 1 AND ABS(fletcher - cooper) <> 1 THEN
|
|
PRINT "Baker vive en el piso "; baker
|
|
PRINT "Cooper vive en el piso "; cooper
|
|
PRINT "Fletcher vive en el piso "; fletcher
|
|
PRINT "Miller vive en el piso "; miller
|
|
PRINT "Smith vive en el piso "; smith
|
|
END IF
|
|
END IF
|
|
END IF
|
|
NEXT smith
|
|
NEXT miller
|
|
NEXT fletcher
|
|
NEXT cooper
|
|
NEXT baker
|
|
END
|