Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.mrao.cam.ac.uk/~rachael/compphys/examples/factorial.f90 Дата изменения: Tue Oct 11 19:32:58 2005 Дата индексирования: Tue Oct 2 11:41:02 2012 Кодировка: Поисковые слова: п п п п п п п п п п п п п п

program factorial
implicit none

! define variables, some with initial values
integer :: nfact = 1
integer :: n

! compute factorials
do n = 1, 10
nfact = nfact * n
write(*,*) n, nfact
end do
end program factorial