Tag Archives: c

to find even odd no in give set write(*,*)’ enter lower and upper limit’read(*,*)l,mif (mod(l,2). NE.0)thenn=l+1elsen=lendifwrite(*,*)’ list of even no’do 10i=n,m,2write(*,*)i10 continue if (mod(l,2). EQ.0 )l=l+1do 1i=l,m,2write(*,*)i in run time To find roots of quadratic equation write(*,*)”enter the value of a,b,c”read(*,*)a,b,cdiscriminant=(bb)-4ac if(discriminant>0) then root1= (-b + sqrt(discriminant))/2aroot2= (-b – sqrt(discriminant))/2*a write(*,*)”roots are different and real”,root1,root2Continue reading “Some program of fortran language”