Çözüldü Bölünebilme - EKOK - Modüler Aritmetik - Programlama

https://i72.servimg.com/u/f72/19/97/10/39/module10.png
https://www.facebook.com/photo.php?fbid=249061369311681&set=gm.1475534472584091&type=3&theater&ifg=1
(Sorunun gönderildiği Facebook grubu 25 Eylül 2022 tarihinde "Private" duruma getirildiği için aslını ve varsa diğer çözümleri ancak üyeleri görebilir.)

EKOK(3, 4, 5) = 60 ve en küçük uygun sayı 60 - 1 = 59 ≡ 2(Mod 3) olduğundan;
59
59 + 60 = 119
119 + 60 = 179
179 + 60 = 239
239 + 60 = 299
yani {59, 119, 179, 239, 299} olmak üzere 5 tane sayı üç şekilde de ortak yazılabilir.

Bilgisayar programlamayla ilgilenen öğrenciler için Fortran uygulaması:

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

Program:

Kod:

program moduler
implicit none
integer :: x,y,z,toplam=0

do x=5,302,3
  do y=7,303,4
    do z=9,304,5
       if ((x==y).and.(x==z).and.(y==z)) then
            print*,x
            toplam=toplam+1
       endif
     enddo
   enddo
enddo    

write(6, 10) "Toplam ",toplam," adet sayi 3 sekilde de ortak yazilabilir."
10 format (a,i2,a,/)

end program moduler