Çözüldü EBOB - EKOK - Programlama

https://i.ibb.co/pQf0tr8/EBOB-EKOK.png
https://www.facebook.com/photo?fbid=2903666859857342&set=gm.4111829865499014

[ EKOK(A, B) ]·[ EBOB(A, B) ] = A·B olduğundan { 6·[ EBOB(A, B) ] }^2 = A·B yazılıp;
[ (√(A·B) ] / 6 = EBOB(A, B) eşitliğine göre ve A ve B iki basamaklı doğal sayılar olmak şartıyla A·B çarpımının da karekökü alınabilen bir doğal sayı olabilmesi için En Büyük(A + B) sayısını vermek üzere A = 99 = 9·11 seçilirse B = 4·11 = 44 olacağından;
En Büyük(A + B) = 99 + 44 = 143 bulunur.

Bilgisayar Programlamayla İlgilenen Öğrenciler İçin Fortran Uygulaması

https://i.ibb.co/wMdYyDD/EBOB-EKOK-Fortran.png

Program

Kod:

program LCMGCD2
implicit none
integer :: lcm,gcd,Ax,Bx,boyut=1,AartiB(20)=0

do Ax=10,99
  do Bx=10,99
     if (lcm(Ax,Bx)==36*gcd(Ax,Bx)) then
         write(6,10) Ax,' ',Bx,' ',Ax+Bx
         AartiB(boyut)=Ax+Bx
         boyut=boyut+1
      endif
  enddo
enddo

print*,""
write(6,15)"Maksimum(A + B) = ",maxval(AartiB)

10 format (3(i3,a))
15 format (a,i3,/)

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
function gcd(v,t)
integer :: gcd
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