15 problem answer

1)CLS
INPUT "Enter length" ;L
INPUT "Enter breath" ;B
A =L *B
PRINT "Area of rectangle is =" ;A
END

2)CLS
INPUT "Enter radius" ;R
A=22/7*R^2
PRINT "Area of circle =" ;A
END

3)CLS
INPUT "Enter the length of square" ;A
A=L^2
PRINT "Area of square" ;Al
END

4)CLS
INPUT "Enter radius" ;R
INPUT "Enter height" ;H
V=22/7*R^2*H
PRINT "Volume of cylinder " ;A
END

5)CLS
INPUT "Enter base" ;B
INPUT "Enter height" ;H
A=1/2*B*H
PRINT "Area of triangle =" ;A
END

6)CLS
INPUT "Enter percntage" ;P
If P>=40 THEN
PRINT "You are pass"
EISE
PRINT "You are fail"
END IF
END

7)CLS
INPUT "Enter any number" ;N
If N MOD 2=0 THEN
PRINT "Even number"
EISE
PRINT "Odd number"
END IF
END

8)CLS
INPUT"Enter any number ";N
If N >0 THEN
PRINT" Positive number "
EISEIf N<0 THEN
PRINT" Negative number "
EISE
PRINT" Zero "
END IF
END

9)CLS
INPUT" Enter any number ";N
IF N MOD 5=0 THEN
PRINT " The number indivisible by 5"
EISE
PRINT "The number is not indivisible by 5"
END IF
END

10)CLS
FOR I =5 to 50 STEP 5
PRINT I
NEXT I
END

11)CLS
FOR I=100 to 10 STEP - 10
PRINT I
NEXT I
END

12)CLS
FOR I=2 to 20 STEP 2
PRINT I
NEXT I
END

13)CLS
FOR I=50 to 5 STEP - 5
PRINT I
NEXT I
END