Çözüldü Tamsayılarda Bölünebilme - Programlama

3 veya 5'e tam olarak bölünemeyen pozitif tamsayılar küçükten büyüğe sıralanırsa 100'ncü sayı kaçtır?
https://www.facebook.com/photo.php?fbid=1816027568706875&set=g.1091681720847192&type=1&theater&ifg=1

Şöyle bir çözüm düşündüm;
1 - 10 arası 5 tane
11 - 20 arası 6 tane
21 - 30 arası 5 tane
... düzeninde gittiğinden,

16 sayı .... ilk 30 içinde
100 sayı .... ilk 187,5 içinde

Sonuç: 100'ncü sayı 187
---
Programlamayla ilgilenen öğrenciler için bir Fortran uygulaması:

https://image.ibb.co/cJpLvJ/3ve5_ile_bolme_Fortran.png

Program:

Kod:

program Bolme
integer::i=0,toplam=0

do
  if( (mod(i,3)==0).or.(mod(i,5)==0) ) then
       i=i+1
       cycle
   else
       toplam=toplam+1
       if (toplam == 100) then
           exit
       else
           i=i+1   
       endif 
   endif 
enddo

write(6,10)'100''ncu sayi: ',i
10 format (a,i3)

end program

On-line Fortran Compiler ile de denenebilir:
https://www.jdoodle.com/execute-fortran-online sitesinde "Your Code ..." başlığı altındaki bölüme kod kopyalanıp en alttaki "Execute" butonuna tıklanacak.