Çözüldü Basamak Analizi - Programlama

https://i72.servimg.com/u/f72/19/97/10/39/abcd10.png
https://www.facebook.com/photo/?fbid=1590101234770572&set=gm.1935936493465184&idorvanity=756598921398953
(Daha sonra silinmiş.)

Yukarıdaki çözümü beğenmedim çünkü uydurma.

A, B, C, D = {1, 2,..., 9} olup en küçük sayı 1000 + 100 + 1 - 10·C = 1101 - 10·C = f(ABCD)
C = 1 ⇒ f(ABCD) = 1101 - 10 = 1091 ⇒ g(ABCD) = 1 + 1 + 1 + 1 = 4 ⇒ g[ f(ABCD) ] = 1 + 0 + 9 + 1 = 11 ≠ 4 + 3
C = 2 ⇒ f(ABCD) = 1101 - 20 = 1081 ⇒ g(ABCD) = 1 + 1 + 2 + 1 = 5 ⇒ g[ f(ABCD) ] = 1 + 0 + 8 + 1 = 10 ≠ 5 + 3
C = 3 ⇒ f(ABCD) = 1101 - 30 = 1071 ⇒ g(ABCD) = 1 + 1 + 3 + 1 = 6 ⇒ g[ f(ABCD) ] = 1 + 0 + 7 + 1 = 9 = 6 + 3.

Bilgisayar Programlamayla İlgilenen Öğrenciler İçin Fortran Çözümü:

https://i72.servimg.com/u/f72/19/97/10/39/abcd_f10.png

Program:

Kod:

PROGRAM f_g_ABCD
IMPLICIT NONE
integer::A,B,C,D,A1,B1,C1,D1,A2,B2,C2,D2,ABCD,f_ABCD,g_ABCD,g_f_ABCD

ilk: do A=1,9
  do B=1,9
    do C=1,9
      do D=1,9
 
         ABCD = 1000*A + 100*B - 10*C + D
 
         D1 = MOD(ABCD,10)
         C1 = MOD(ABCD/10,10)
         B1 = MOD(ABCD/100,10)
         A1 = MOD(ABCD/1000,10)
    
         g_ABCD = A1 + B1 + C1 + D1

         f_ABCD = 1000*A1 + 100*B1 - 10*C1 + D1
    
         D2 = MOD(f_ABCD,10)
         C2 = MOD(f_ABCD/10,10)
         B2 = MOD(f_ABCD/100,10)
         A2 = MOD(f_ABCD/1000,10)
    
         g_f_ABCD = A2 + B2 + C2 + D2
    
         if (g_f_ABCD == (g_ABCD + 3)) then
            print*,C1
            exit ilk
         endif
 
      enddo
    enddo
  enddo
enddo ilk

END PROGRAM