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
A_01 BISECTION METHOD
Gauss pivot elimination
Matrix 3×3
Vi ss. F
lcm and gcd using prime factorization
A_04 GUASSIAN QUADRATURE METHOD
Sum of series
A_002 THE GUASS SEIDEL
Gauss for
3