CLS

INPUT "ENTER ANY NUMBER"; N

S = 0

WHILE N < > 0

R = N MOD 10

IF R MOD 2 = 0 THEN S = S + R

N = N \ 10

WEND

PRINT "SUM OF EVEN DIGITS"; S

END

USING SUB PROCEDURE

DECLARE SUB SUMEVEN (N)

CLS

INPUT "ENTER ANY NUMBER"; N

CALL SUMEVEN (N)

END

SUB SUMEVEN (N)

S = 0

WHILE N < > 0

R = N MOD 10

IF R MOD 2 = 0 THEN S = S + R

N = N \ 10

WEND

PRINT "SUM OF EVEN DIGITS"; S

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SUMEVEN (N)

CLS

INPUT "ENTER ANY NUMBER"; N

SU = SUMEVEN (N)

PRINT "SUM OF EVEN DIGITS"; SU

END

FUNCTION SUMEVEN (N)

S = 0

WHILE N < > 0

R = N MOD 10

IF R MOD 2 = 0 THEN S = S + R

N = N \ 10

WEND

SUMEVEN = S : END FUNCTION

## WAP to input number and find sum of even digits

**Notice**: compact(): Undefined variable: limits in

**/home/bhimgautam34/public_html/wp-includes/class-wp-comment-query.php**on line

**853**

**Notice**: compact(): Undefined variable: groupby in

**/home/bhimgautam34/public_html/wp-includes/class-wp-comment-query.php**on line

**853**

## No Comments