Çözüldü EKOK - Programlama

Matematik mühendislik, fizik, istatistik gibi alanlarda bilgisayar programlama (kodlama) öğrenmek isteyen öğrenciler için Fortran uygulaması:

https://i.ibb.co/hxZBXxbt/KLM-Fortran.png

Program:

Kod:

! KLM üç basamaklı, rakamları farklı 900'den büyük bir sayıdır.
! EKOK (K,L,M)=72 ise kaç farklı KLM sayısı yazılabilir?
program K_L_M
implicit none
integer :: lcm,K,L,M,sayi,Toplam = 0,LCM_L_M,LCM_K_L

do K = 1, 9; do L = 1, 9; do M = 1, 9

   sayi = 100*K + 10*L + M
 
   if (sayi <= 900) cycle

   if (((K == L).or.(K == M).or.(L == M))) cycle

   LCM_L_M = LCM(L, M); LCM_K_L = LCM(K, L)

   if ((LCM(K, LCM(L, M)))==72) then
      if (((LCM(LCM_K_L, M)))==72) then
          print*,sayi; Toplam = Toplam + 1
      endif
   endif

enddo; enddo; enddo

print*,Toplam,"sayi yazilabilir."

end program

!Modified version of https://rosettacode.org/wiki/Least_common_multiple#Fortran
integer function lcm(a,b)
integer:: a,b,gcd
lcm = a*b / gcd(a,b)
end function lcm

!https://rosettacode.org/wiki/Greatest_common_divisor#Iterative_Euclid_algorithm_3
integer function gcd(v,t)
integer, intent(in) :: v, t
integer :: c, b, a
b = t
a = v
do
  c = mod(a, b)
  if (c == 0) exit
  a = b
  b = c
end do
gcd = b
end function gcd