کد فرترن برنامه ای که عدد n رو میگیره و مجموع فاکتوریل های اعداد 1 تا عدد n رو محاسبه و چاپ میکنه.مثلا اگر
n=3 کد سری زیر رو محاسبه و چاپ میکنه:
• s=1!+2!+3! =9
•
• -----------------------------------------------------------------------------------------------------------------------------------
•
• PROGRAM fuct
• IMPLICIT NONE
• INTEGER::n,s,t,i
• READ*,n
• t=1
• s=0
• DO i=1,n
• t=t*i
• s=s+t
• END DO
• PRINT*,s
• END
