Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  factorial
Language: FORTRAN
Code:
program exo8
implicit none
integer:: n,i
real:: s
write(*,*) "entrer le nombre n"
read(*,*) n
s=0
do i=1,n
s=(n-1)*n
enddo
write(*,*) " resultat n=",s
end program exo8
Comments: