Çö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
    sy3x, 12 Ekim 2014
    #1
     
    : 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

  2. 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
    Bora, 15 Ekim 2014
    #2
    Cem, sy3x ve Honore bunu beğendi.
  3. 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
    Honore, 20 Temmuz 2025
    #3

Sayfayı Paylaş