Notatnik rozwiązuje problem Z 4-1                 
       z książki Normana D. Willisa                     
        “Zagadki Logiczne”                              
       Wydawnictwo “Klub Dla Ciebie”, Warszawa 2004.     
                                                        
                                                        
       Każda litera nad kreską reprezentuje             
       cyfrę o jeden mniejszą lub o jeden większą       
       niż cyfra, którą ta sama litera oznacza pod      
       kreską. Cyfry (0,1,2,3,4,5) nie powtarzają się.  
                                                        
         A   F   C   E                                  
     +  A   D   D   B                                  
     ------------------                                 
      =  B   F   B   F                                  
                                                        
       Jaką cyfrę reprezentuje każda litera rachunku ?

ilerozw=0; (* licznik rozwiązań *)
For[AA=1,AA<6,AA++,For[BB=0,BB<6,BB++,For[CC=0,CC<6,CC++,For[DD=0,DD<6,DD++,For[EE=0,EE<6,EE++,For[FF=0,FF<6,FF++,For[GG=BB-1,GG<BB+2,GG=GG+2,For[HH=FF-1,HH<FF+2,HH=HH+2,L1=1000*AA+100*FF+10*CC+EE;
L2=1000*AA+100*DD+10*DD+BB;
L3=1000*GG+100*HH+10*GG+HH;
If[(AA*AA+BB*BB+CC*CC+DD*DD+EE*EE+FF*FF)==55,If[(GG≥0)&&(HH≥0)&&(GG≠HH)&&(L1+L2==L3),ilerozw++;
Print[" rozwiązanie nr ",ilerozw," to:  AA= ",AA,",  BB= ",BB,",  CC= ",CC,",  DD= ",DD,",  EE= ",EE,",  FF= ",FF,",  GG= ",GG,",  HH= ",HH];
Print["        ",L1];
Print["  +     ",L2];
Print["  ------------ "];
Print["  =     ",L3]]]]]]]]]]];