1.WAP A PROGRAM TO REVERSE THE DIGITS.
REM
CLS
S=0
INPUT "ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
S=S*10+R
N=N\10
WEND
PRINT"THE REVERSE NUMBER=";S
END
2.WAP TO DISPLAY THE PRODUCT OF ENTERED 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"PRODUCT OF DIGITS=";S
END
3.WAP TO DISPLAY THE PRODUCT OF EVEN DIGITS.
REM
CLS
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"PRODUCT OF EVEN DIGITS=";S
END
4.WAP TO DISPLAY THE PRODUCT 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"PRODUCTOF ODD DIGITS=";S
END
5.WAP TO COUNT TOTAL NUMBER OF ENTERED NUMBER.
REM
CLS
INPUT" ENTER ANY NUMBER";N
WHILE N<>0
R=NMOD10
S=S+1
N=N\10
WEND
PRINT"TOTAL NUMBER OF DIGITS=";S
END
6. WAP TO COUNT TOTAL NUMBER OF EVEN NUMBER.
REM
CLS
INPUT" ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
IF R MOD 2=0 THEN S=S+1
N=N\10
WEND
PRINT"TOTAL NUMBER OF EVEN DIGITS=";S
END
7. WAP TO COUNT TOTAL NUMBER OF EVEN NUMBERS.
REM
CLS
INPUT" ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
IF R MOD 2=1 THEN S=S+1
N=N\10
WEND
PRINT"TOTAL NUMBER OF ODD DIGITS=";S
END
8. WAP TO CHECK WHETHER THE GIVEN NUMBER IS ARMSTRONG OR NOT.
REM
CLS
INPUT"ENTER ANY NUMBER";N
V=N
WHILE V<>0
R=V MOD 10
S=S+R^3
V=INT(V/10)
WEND
IF N=S THEN
PRINT N;"IS ARMSTRONG NUMBER"
ELSE
PRINT N;"IS NOT ARMSTRONG NUMBER"
ENDIF
END
9. WAP TO CHECK WHETHER THE GIVEN NUMBER IS PALINDROME OR NOT.
REM
CLS
INPUT"ENTER ANY NUMBER";N
A=N
WHILE N<>0
R=N MOD 10
S=S*10+R
N=N\10
WEND
IF A=S THEN
PRINT A;"IS PALINDROME NUMBER"
ELSE
PRINT A ;"IS NOT PALINDROME NUMBER "
ENDIF
END
No comments:
Post a Comment