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

Konusu 'Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK' forumundadır ve sy3x tarafından 12 Ekim 2014 başlatılmıştır.

Yüklüyor...
  1. sy3x

    sy3x Yeni Üye

    Mesajlar:
    90
    Beğenileri:
    7
    AB32 dört basamaklı sayısının 48 ile bölümünden kalan CD iki basamaklı sayısı olduğuna göre kaç farklı CD iki basamaklı sayısı vardır?

    A) 6
    B) 8
    C) 9
    D) 12
    E) 39

    Cevap: 9
    Son düzenleyen: Moderatör: 20 Temmuz 2025
     
    : Fortran

  2. Benzer Konular: Bölünebilme Programlama
    Forum Başlık Tarih
    Mantık,Kümeler,Bağıntı ve Fonksiyon,İşlem ve Moduler Aritmetik Modüler Aritmetik - Bölünebilme - Programlama 13 Şubat 2026
    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
    Polinomlar, Permütasyon, Kombinasyon, Olasılık ve Binom Açılımı İkinci Derece Polinom - Tam Sayılarda Bölünebilme - Programlama 26 Eylül 2025
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK 9 İle Kalansız Bölünebilme - Basamak Analizi - Programlama 28 Mayıs 2025
    Hatalı - Tekrarlanmış Sorular veya Çözümler (Faulty - Repeated Questions or Solutions) Sayılar - Bölünebilme - Programlama 21 Ekim 2024

  3. Bora

    Bora Yönetici Yönetici

    Mesajlar:
    2.136
    Beğenileri:
    575
    Meslek:
    Öğretmen
    AB32=48k+CD ise AB32 sayısı 4 ile tam bölünüyor(son iki basamaktan anladık)
    o zaman 48k+CD de 4 ile tam bölünmeli.48.k zaten 4 ün katıdır.O zaman CD sayısı da 4 ün katı olmalı.
    CD=4k=0,4,8,12,16,..,44
    (44-12 / 4) +1 =9
    Cem, sy3x ve Honore bunu beğendi.
  4. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    11.055
    Beğenileri:
    652
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    Bilgisayar programlamayla ilgilenen öğrenciler için bu da Fortran çözümü olsun:
    [​IMG]
    https://i.ibb.co/jv3rXBQ1/CD-Fortran.png

    Program:
    Kod:
    program kalanlar
    implicit none
    integer :: AB32,boyut=0,i=0,j,k=0,p,temp, kalan
    integer, allocatable :: CD(:), res(:)
    
    do AB32 = 1032, 9932
       kalan = MOD(AB32,48)
       if (kalan < 10) cycle
       boyut=boyut+1
    enddo
    
    allocate(CD(boyut))
    
    do AB32 = 1032, 9932
       kalan = MOD(AB32,48)
       if (kalan < 10) cycle
       if (MOD(kalan,4)/= 0) cycle
       i = i + 1; CD(i) = kalan
    enddo
    
    allocate(res(size(CD)))
    
    res(1) = CD(1)
    
    do j=1,i
       if (any(res == CD(j))) cycle
       k = k + 1
       res(k) = CD(k)
    enddo
    
    print*,''
    write(*,fmt='(a,i3,a,/)') 'Farkli CD kalanlarinin sayisi:',k,' adet.'
    
    do j=1,k-1
       do p=j+1,k
          if (res(j) < res(p)) cycle
          temp=res(j)
          res(j)=res(p)
          res(p)=temp
        enddo
    enddo
    
    do j=1,k
       write(6,10)j,"    ",res(j)  
    enddo
    
    deallocate (CD, res)
    
    10 format(2(i3,a))
    
    end program

Sayfayı Paylaş