Çözüldü Çarpma ile Sayma - Programlama

Tek rakamlı sayılar: 5 tane

İki rakamlı sayılar: 11 - 15, 21 - 25, ..., 51 - 55 olmak üzere 5·5 = 25 tane

Üç rakamlı sayılar: 111 - 115, 121 - 125, ..., 151 - 155 olmak üzere 5·25 = 125 tane

1355 ve daha küçük dört rakamlı sayılar:
binler hanesi 1
yüzler hanesi 1, 2, 3 rakamlarından biri,
onlar hanesi 1, 2, 3, 4, 5 rakamlarından biri,
birler hanesi 1, 2, 3, 4, 5 rakamlarından biri
olmak üzere 1·3·5·5 = 75 tane

1411 - 1435 arası dört rakamlı sayılar:
binler hanesi 1
yüzler hanesi 4
onlar hanesi 1, 2, 3 rakamlarından biri
birler hanesi 1, 2, 3, 4, 5 rakamlarından biri
olmak üzere 1·1·3·5 = 15 tane

Alt toplam: 5 + 25 + 125 + 75 + 15 = 245 tane

1441 sayısı da eklenirse 245 + 1 = 246'ncı sayı 1441 olur.

Bilgisayar programlamayla ilgilenen öğrenciler için Fortran uygulaması:

https://image.ibb.co/nOqkvq/sayilar.png

Program:

Kod:

program saymak
integer :: i,sira=0

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

do i=1,1441

   select case(i)
       case (1:5)
          sira=sira+1
          print*,sira,i
          write(1,10) sira,'  ',i
    end select    

   select case(i)
       case (11:55)
          if ( (mod(i,10)>5).or.(mod(i,10)==0).or.(i/10>5) ) then
              cycle
           else 
              sira=sira+1
              print*,sira,i
              write(1,10) sira,'  ',i
           endif  
    end select    

    select case(i)
      case (111:555)
          if ( (mod(i,10)>5).or.(mod(i,10)==0).or.(mod(i/10,10)>5).or. &
               (mod(i/10,10)==0)   )   then
              cycle
           else 
              sira=sira+1
              print*,sira,i
              write(1,10) sira,'  ',i
           endif  
    end select    

    select case(i)
      case (1111:1441)
          if ( (mod(i,10)>5).or.(mod(i,10)==0).or.(mod(i/10,10)>5).or. &
               (mod(i/10,10)==0).or.(mod(i/100,10)>5).or.              &
               (mod(i/100,10)==0) )   then
              cycle
           else 
              sira=sira+1
              print*,sira,i
              write(1,10) sira,'  ',i
           endif  
    end select

enddo

write(6,20)'1441 sayisi ',sira,'. siradadir.'
write(6,30)'Tum liste icin sayilar.txt dosyasina bakiniz.'

close(1)

10 format (i3,a,i4)
20 format(a,i3,a,/)
30 format(a,/)

end program

Not: Programın çıktısı ektedir.