Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
prime list 2
program pmlist implicit none integer::m(500),j,k,n,i j=0 do 10 n=2,100 do k=2,n/2 if(mod(n,k)==0) goto10 end do j=j+1 m(j)=n 10 continue print*,'list of prime number:' write(*,20)(m(i),i=1,j) 20 format(3x,5i7/) stop end program pmlist
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Ashish.txt
Exercise 02
Exercise
Rvc
Matrix problem
GPA GRADING
Exercicio 1
Factorial num
simpsonova for
Subroutine problem
Please log in to post a comment.