@Jamirul0408

program main implicit none integer ::x,n,f,s,i integer :: num(10) print*, "enter a number & a digit " read*,x,n f=x do i=1,10 num(i)=0 end do

program main IMPLICIT none INTEGER :: n,copy,dig,d,I,R=0,J INTEGER :: NUM(10) PRINT *,"enter a number" read *,n copy=n DO I=1,10 NUM(I)=0 ENDDO

program main IMPLICIT none INTEGER :: n,copy,dig,d,I,R=0,J INTEGER :: NUM(10) PRINT *,"enter a number" read *,n copy=n DO I=1,10 NUM(I)=0 ENDDO

Program main Implicit none INTEGER::n,n1,r,q,c=0 ,x Print*,"ENTER AN INTEGER" read*,n x=n n1=n*n DO WHILE(n/=0) r=mod(n,10) c=c+1

program main IMPLICIT none INTEGER :: a=0,b=1,c=0,n,i PRINT *,"ENTER a NUMBER" read *,n do i=1,n-2 c=a+b a=b b=c ENDDO

Program main Implicit none INTEGER::i,a,n,f=1 real :: sum Print*,"Enter 2 Numbers" read*,a,n Do i=1,n,1 f=f*i sum=sum+(a**i/real(f)) end do

Program main Implicit none INTEGER::n,rev=0,r,p Print*,"ENTER AN INTEGER" read*,n p=n DO WHILE(n/=0) r=mod(n,10) rev=rev*10+r n=n/10

program main IMPLICIT none INTEGER :: a,b,c=0,i,J,D PRINT *,"ENTER 2 NUMBERS" read *,a,b I=A PRINT *,"PRIME NUMBERS ARE" IF(A>B) THEN D=A A=b

Program Hello implicit none integer ::n,i=1,f=0 print *,"Enter a number" read *,n do while (i<n) if(i*i==n)f=1 i=i+1 end do if(f==1)then

Program Main implicit none integer::i=1,n,f=0,f1=1,f2=1 Print*,"Enter number of terms" read*,n do while(i<=n) Print*," ",f f1=f2 f2=f f=f1+f2

PROGRAM main IMPLICIT NONE INTEGER :: a, b, c print*,'Enter Two positive integers ' read*, a,b IF (a < b) THEN c = a a = b b = c END IF

program main IMPLICIT none INTEGER :: a,c=0,i,s=0 PRINT *,"ENTER A NUMBER" read *,a DO I=1,a/2 if(mod(a,i)==0) C=C+1 ENDDO IF(C==1) THEN PRINT *,"PRIME NUMBER"

program main implicit NONE integer:: a,b,c,lcm,i,j print*,"enter the two numbers" read*,a,b i=a j=b if(a<b) then c=a a=b

program multiplication implicit none integer ::i,a,b,s print*,"enter two numbers " read*,a,b s=0 do i=1,abs(b) if(b>0)then s=s+a

program sum_given_series implicit none integer :: i,n,f real ::t,s,x print*,"enter x and n respectivly " read*,x,n f=1 s=0 do i=1,n if(mod(i,2).EQ.0)then

program main implicit none integer :: i,a,b real ::m print *, "enter number and the power " read*,a,b m=1 do i=1,abs(b) if(b.EQ.0) then

program max_min implicit none integer ::a,b,c,Max,Min print*,"enter three numbers " read*,a,b,c Max=a if(b>Max) Max=b if(c>Max) Max=c Min=a if(b<Min) Min=b

program leapyear implicit none integer ::y print*,"enter a year " read*,y if(mod(y,4).EQ.0.or.mod(y,400).EQ.0)then print*,y," is a leapyear " else print*,y," is not a leapyear " endif

program shapefind implicit none integer :: a,b,c,d,e print*,"enter the four sides " read*,a,b,c,d print*,"enter any one angel " read*,e