PROGRAM Aramstrong_Sayilar
!---------------------------------------------------------
! 06prg05.f95
! Üç basamaklı, basamaklarının küpleri toplamı kendisine 
! eşit olan tam sayılara  Armstrong sayı denir. 
!       Örneğin: 371 = 3**3 + 7**3 + 1**3
! Bu program İç-içe geçmiş 3 döngü ile bütün Aramstrong 
! sayıları bulur.
!---------------------------------------------------------
IMPLICIT NONE
INTEGER :: a,b,c, kup, sayi, k = 1

   DO a = 1, 9
   DO b = 0, 9
   DO c = 0, 9

       sayi = 100*a + 10*b + c;    ! sayi = abc (üç basamaklı) 
       kup  = a**3 + b**3 + c**3;  ! kup  = a^3+b^3+c^3

       IF( sayi == kup ) THEN
          PRINT *, K, Sayi
          K = K + 1
       END IF

   END DO
   END DO
   END DO

END