WAP TO DISPLAY BY ENTERING ANY NUMBER

1.SUM OF DIGITS.
REM
CLS
S=0
INPUT"ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
S=S+R
N=N\10
WEND
PRINT "SUM OF DIGITS";S
END

2.SUM OF EVEN DIGITS.
REM
CLS
S=0
INPUT "ENTER ANY NUMBER";N
WHILE N <>0
R=N MOD 10
IF R MOD 2 = 0 THEN S=S+R
N=N\10
WEND
PRINT "SUM OF EVEN DIGITS";S
END

3.SUM OF ODD DIGITS.
REM
CLS
S=0
INPUT "ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
IF R MOD 2=1 THEN S=S+R
N=N\10
WEND
PRINT "SUM OF ODD DIGITS";S
END

4.SUM OF SQUARE OF DIGITS.
REM
CLS
S=0
INPUT"ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
S= S+R^2
N=N\10
WEND
PRINT"SUM OF SQUARE OF DIGITS";S
END

5.SUM OF CUBE OF DIGITS
REM
CLS
S=0
INPUT "ENTER ANY NUMBER";N
WHILE N <>0
R=N MOD 10
S= S+R^3
N=N\10
WEND
PRINT"SUM OF CUBE OF DIGITS";S
END

6.SUM OF SQUARE OF EVEN DIGITS.
REM
CLS
S=0
INPUT"ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
IF R MOD 2=O THEN S=S+R^2
N=N\10
WEND
PRINT"SUM OF SQUARE OF EVEN DIGITS";S
END

7.SUM OF SQURE OF ODD DIGITS.
REM
CLS
S=0
INPUT"ENTER ANY NUMBER";N
WHILE N<>O
R=N MOD 10
IF R MOD 2=1 THEN S=S+R^2
N=N\10
WEND
PRINT"SUM OF SQUARE OF ODD DIGITS";S
END

8.SUM OF CUBE OF EVEN DIGITS.
REM
CLS
S=O
INPUT"ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
IF R MOD 2=0 THEN S=S+R^3
N=N\10
WEND
PRINT"SUM OF CUBE OF EVEN DIGITS";S
END

9.EVEN DIGITS OR ODD DIGITS.
REM
CLS
INPUT"ENTER ANY NUMBER";N
IF N MOD 2=0 THEN
PRINT N;"IS EVEN NUMBER"
ELSE
PRINT N;"IS ODD NUMBER"
ENDIF
END

10.SUM OF CUBE OF ODD DIGITS.
REM
CLS
S=0
INPUT "ENTER ANY NUMBER";N
WHILE N<>O
R=N MOD 10
IF R MOD 2=1 THEN S=S+R^3
N=N\10
WEND
PRINT"SUM OF CUBE OF ODD DIGITS";S
END