Çözüldü Doğal Sayılar - Faktöriyel - Programlama

Konusu 'Matematik - Geometri' forumundadır ve Honore tarafından 29 Ekim 2018 başlatılmıştır.

Yüklüyor...
  1. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    11.054
    Beğenileri:
    652
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    a·b = c! eşitliğini sağlayan kaç tane üç basamaklı abc sayısı yazılabilir?

    c = 0 ⇒ 0! = 1 = 1·1, abc = 110
    c = 1 ⇒ 1! = 1 = 1·1, abc = 111
    c = 2 ⇒ 2! = 2 = 1·2, 2·1, abc = 122, 212
    c = 3 ⇒ 3! = 6 = 1·6, 6·1, 2·3, 3·2, abc = 163, 613, 233, 323
    c = 4 ⇒ 4! = 24 = 3·8, 8·3, 4·6, 6·4, abc = 384, 834, 464, 644
    s(abc) = 12
    ---
    Bilgisayar programlamayla ilgilenen öğrenciler için Fortran uygulaması ve üzerinde çalışılabilir kaynak kodu:
    [​IMG]
    https://i72.servimg.com/u/f72/19/97/10/39/faktor10.gif
    Kod:
    program fact
    integer ::i,toplam=0
    integer, external :: ifact
    
    do i=100,999
       if ((i/100)*mod(i/10,10)==ifact(mod(i,10))) then
          toplam=toplam+1
          print*,toplam,i
       endif
    enddo
    
    write(6,10) toplam,' adet sayi yazilabilir.'
    10 format (i2,a)
    
    end program
    
    integer function ifact(n)
    integer n,k
    
    ifact=1
    
    do k=2,n
       ifact=ifact*k
    enddo
    
    end function
     
    : Fortran

  2. Benzer Konular: Doğal Sayılar
    Forum Başlık Tarih
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK İki Basamaklı Doğal Sayılarda Bölünebilme - Programlama 26 Aralık 2025
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Doğal Sayılar - İkinci Derece Denklemde Tam Kare Diskriminant 26 Kasım 2025
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Doğal Sayılar - Aritmetik Dizi - Programlama (Hamallık soruları hazırlamakta üzerimize yok!) 15 Mart 2025
    Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat) Doğal Sayılar 13 Mart 2025
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK Doğal Sayılarda Basamak Analizi - Programlama 24 Ocak 2025

Sayfayı Paylaş