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
Question1(b)
A_02 GUASSIAN ELIMINATION METHOD
Sum of inverse square series
Example 45 175 page
Regression
fucugigugug
Gauss seidal
Y
A_03 EULER'S METHOD
Ghhhb