Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
The Sum of the chain (fortran)
ANIRUDDHA
Backward
expx
A_04 POWER METHOD
Me
SIUM(3.5)
Rvc
We subroutine
hello world