PROGRAM Asal_Carpanlar !---------------------------------------------- ! 17prg02.f95 ! Bir tamsayının 1 ve kendisi dahil ! asal çarpanları (tam bölenleri). !---------------------------------------------- IMPLICIT NONE INTEGER :: I, K, Sayi PRINT *,"Pozitif bir tamsayı girin:" READ *,Sayi PRINT *,"Asal Çarpanlar:" DO I = 1, Sayi ! Sayinin I ile bölümünden kalan K = MOD(Sayi, I) ! Kalan sıfır mı? IF(K == 0) PRINT *, I END DO END PROGRAM