Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  fortran prime logic
Language: FORTRAN
Code:
     program hello
     integer :: i, count, n
     print *,"enter n:"
     read *, n
        i = 1
        count = count + 1
        while ( i .ge. 0) do
        if(mod(n,i) .eqv. 0) then
        count = count + 1
        end if
        i = i+1
        end do
        if(count .equ. 2)
        print *,"yes:"
        else
        print *,"no:"
        end if
     end program hello          
Comments: