WAP to display product of digits.
CLS
INPUT " Enter any number " ; N
P = 1
WHILE N < > 0
R = N MOD 10
P = P * R
N = N \ 10
WEND
PRINT " Product of digits = " ; P
END
CLS
INPUT " Enter any number " ; N
P = 1
WHILE N < > 0
R = N MOD 10
P = P * R
N = N \ 10
WEND
PRINT " Product of digits = " ; P
END
Comments
Post a Comment