Question

pu
10. WAP to input a no and check whether it is special no or not?​

Answer 1

Answer:CLS

INPUT"ENTER  A NO "N

SUM=0

         WHILE N<>0

R=N1 MOD 10

SUM=SUM + R

PRODUCT =  PRODUCT*R

N1=N1/10

WEND

IF SUM=PRODUCT THEN

PRINT"SPECIAL NO "

ELSE

PRINT "NOT A SPECIAL NO"

END IF

END

HOPE THIS HELPS :)