کد فرترن محاسبه ی فاکتوریل یک عدد
PROGRAM fuct
1. IMPLICIT NONE
2. INTEGER::n,s,i
3. READ*,n
4. s=1
5. DO i=1,n
6. s=s*i
7. END DO
8. PRINT*,s
END
کد فرترن محاسبه ی فاکتوریل یک عدد
PROGRAM fuct
1. IMPLICIT NONE
2. INTEGER::n,s,i
3. READ*,n
4. s=1
5. DO i=1,n
6. s=s*i
7. END DO
8. PRINT*,s
END