EKOK - Programlama

Soru bu haliyle yani şıkları olmadan hatalı çünkü ilk 100 doğal sayıda 12 tane var.
Bilgisayar programlamayla (kodlama) ilgilenen öğrenciler için Fortran çözümü:

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

Program:

Kod:

! İlk 100 doğal sayı içinde birbirinden farklı ikisinin EKOK'u,
! küçük sayının 8 ve büyük sayının 5 katı ise bu iki doğal sayının toplamı
! kaç olabilir?
program dogal_sayilar
integer :: kucuk, buyuk, EKOK, lcm, No=1

write(6, 15)"Ilk 100 dogal sayida 12 tane olabilir."
write(6, 16) "Sira No    EKOK    Kucuk Sayi      Buyuk Sayi      Toplam"
write(6, 16) "---------------------------------------------------------"

do kucuk = 1, 100
   do buyuk = 1, 100
      if (kucuk >= buyuk) cycle
      EKOK = lcm(kucuk, buyuk)
      if ((EKOK == 8*kucuk).and.(EKOK == 5*buyuk)) then
         write(6, 20) "   ",No,"    ",EKOK,"        ",kucuk,"             ",buyuk,&
                      "         ",kucuk+buyuk
         No = No + 1
      endif           
   enddo
enddo

15 format(a,/)
16 format(a)
20 format(a,i2,a,i5,a,i3,a,i3,a,i5)

end

!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 ! abs(b)

end function gcd