User:Madhusudan Maji

A program to test the given number "n" divisible by 7 or not

C   PROGRAM TO TEST THE NUMBER 
C   IS DIVISIBLE BY 7 OR NOT
    READ*,N
    R=MOD(N,7)
    IF(R.EQ.0)THEN
    PRINT*,'THE NUMBER IS
   C DIVISIBLE BY 7'
    ELSE
    PRINT*,'THE NUMBER IS 
   C NOT DIVISIBLE BY 7'
    ENDIF
    STOP
    END

A program to find maximum among 3 numbers

C     PROGRAM TO FIND MAXIMUM
C     AMONG 3 NUMBERS
      READ*,A,B,C
      BIG=A
      IF(BIG.LT.B)BIG=B
      IF(BIG.LT.C)BIG=c
      PRINT*,'BIG=',BIG
      STOP
      END

A program to calculate and print sum of the series 1^2+2^2+3^2+.....+n^2

 C    SUM OF THE SERIES
      READ*,N
      ISUM=0
      DO 30 I=1,N,1
      ISUM=ISUM+I**2
   30 CONTINUE
      PRINT*,'ISUM=',ISUM
      STOP
      END

Program to find the area of a circle

 C   AREA OF A CIRCLE
     READ*,R
     PI=3.142857
     A=PI*R*R
     PRINT*,"AREA=",A
     STOP
     END

Program to find the area of a triangle

C   AREA OF A TRIANGLE
    READ*,A,B,C
    S=(A+B+C)/2
    A=SQRT (S*(S-A)*(S-B)*(S-C))
    PRINT*,"AREA=",A
    STOP
    END