Çözüldü Bölme ve Bölünebilme - Programlama

847 sayısının x pozitif çift sayısına bölümünden kalan 7 ise kaç farklı x değeri olabilir?
https://scontent-vie1-1.xx.fbcdn.ne...=b03defbc0645686b75105f8c09545f58&oe=5C92BB9E
https://www.facebook.com/photo.php?...&set=gm.1427350490735823&type=3&theater&ifg=1

840 = (2^3)·(3^1)·(5^1)·(7^1)
8 ve daha büyük pozitif bölenlerin sayısı: (3 + 1)(1 + 1)(1 + 1)(1 + 1) - 7 = 32 - 7 = 25
Tek Bölenler = {1, 3, 5, 7} ⇒ s(Tek Bölenler) = 4
s(Çift Bölenler) = 25 - 4 = 21
---
Bilgisayar programlamayla ilgilenen öğrenciler için Fortran uygulaması:

Kod:

program bolme
    integer :: x,k,toplam=0
   
    do x=2,847,2
       if (mod(847,x)==7) then
          toplam=toplam+1
          print*,x
        endif
    enddo

print*,toplam   
   
end program bolme

https://www.jdoodle.com/execute-fortran-online veya http://www.compileonline.com/compile_fortran_online.php Fortran derleyicilerinde çalıştırılıp sonuç görülebilir.