Çözüldü Fibonacci Dizisi - Üç Basamaklı Tek Sayılar - Programlama

İlk 6 fibonacci sayısıyla 3 basamaklı kaç tek sayı yazılabilir?

www.mathful.com'daki yapay zekânın 571 saniye sonunda yaptığı 32 sayfalık analizi ve çözümü ektedir.

Bilgisayar programlamayla ilgilenen öğrenciler için tamamen basamak analizine yönelik Fortran uygulaması:

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

Program:

Kod:

! İlk 6 fibonacci sayısıyla 3 basamaklı kaç tek sayı yazılabilir?
program fibonacci
integer :: sayi, toplam=0, bir, on, yuz

open (unit = 1, file = "Sayilar.txt")

do sayi=101,532

   bir = MOD(sayi, 10); on = MOD(sayi / 10, 10); yuz = sayi / 100

   if (MOD(sayi, 2) == 0) cycle

   if ((bir == 1).and.(on == 1).and.(yuz == 1)) cycle

   if ((bir == 7).or.(bir == 9)) cycle
   if ((on == 4).or.(on == 6).or.(on == 7).or.(on == 8).or.(on == 9)) cycle
   if ((yuz == 4).or.(yuz == 6).or.(yuz == 7).or.(yuz == 8).or.(yuz == 9)) cycle

   if ((on == 2).and.(yuz == 2)) cycle

   if ((bir == 3).and.(on == 3)) cycle
   if ((bir == 3).and.(yuz == 3)) cycle
   if ((on == 3).and.(yuz == 3)) cycle

   if ((bir == 5).and.(on == 5)) cycle
   if ((bir == 5).and.(yuz == 5)) cycle
   if ((on == 5).and.(yuz == 5)) cycle

   toplam = toplam + 1; write(1, 10) toplam,"    ",sayi

enddo

close(1)

write(6, 15) toplam, " adet sayi yazilabilir. sayilar.txt dosyasina bakin."

10 format (i2,a,i3)
15 format (i2,a)

end 

Not: Programın verdiği liste de ektedir.