QBASIC program to display sum of odd digits .

CLS
INPUT "Enter any number ";N
S = 0 
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