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

Comments

Popular posts from this blog