Çözüldü Tam Sayılar - Programlama

https://i.ibb.co/mtP5vLW/Tamsayilar.png
https://www.facebook.com/photo?fbid=414381530785353&set=gm.2652860914851435
(Sorunun gönderildiği Facebook grubu 25 Eylül 2022 tarihinde "Private" duruma getirildiği için sorunun aslını ve varsa diğer çözümleri ancak üyeleri görebilir.)

{ [ A + (B / C) ]^0,5 }·(√D)·[ √(E - 1) ] / √E = 2 şeklinde yazılırsa A + (B / C) = E, A = 1, B + C = E, C = D^2, B = 5, C = 4, D = 2 olması durumunda (1 / D)·(√D)·√(E - 1) = 2 eşitliği ancak D = 2 ve E = 9 için sağlanabilir çünkü (1 / 2)·(√2)·(2·√2) = 2 olur.

Bilgisayar Programlama İle İlgilenen Öğrenciler İçin Fortran Uygulaması

https://i.ibb.co/DM5p5nY/Tamsayilar-Fortran.png

Program:

Kod:

program Tamsayilar
integer ::A,B,C,D,E

ilk: do A = 1, 9
  do B = 1, 9
    do C = 1, 9
      do D = 1, 9
        do E = 1, 9
            if ((D*(A*C+B))*(E-1)==4*C*E) then
               if ((A+B+E==11).or.(A+B+E==12).or.(A+B+E==13).or.       &
                  (A+B+E==14).or.(A+B+E==15)) then
                  if ((A/=B).and.(A/=C).and.(A/=D).and.(A/=E).and.     &
                     (B/=C).and.(B/=D).and.(B/=E).and.                 &
                     (C/=D).and.(C/=E).and.                            &
                     (D/=E)) then                                  
                      if ((A==3).or.(A==6).or.(A==7).or.(A==8).or.     &
                         (B==3).or.(B==6).or.(B==7).or.(B==8).or.      &
                         (C==3).or.(C==6).or.(C==7).or.(C==8).or.      &
                         (D==3).or.(D==6).or.(D==7).or.(D==8).or.      &
                         (E==3).or.(E==6).or.(E==7).or.(E==8)) then
                          cycle
                      else
                         write(6,10)"A = ",A,", B = ",B,", C = ",C,    &
                         ", D = ",D,", E = ", E
                         exit ilk
                      endif
                  endif
               endif
            endif
        enddo
      enddo
    enddo
  enddo
enddo ilk

write(6,20)"A + B + E = ",A+B+E

10 format (5(a,i1),/)
20 format (a,i2)

end program