WAP to check if an entered number is Armstrong or not.

WAP to check if an entered number is Armstrong or not.

DECLARE SUB ARM$ (A)

CLS

INPUT ''ENTER A NUMBER";N

END

SUB ARM$ (A)

B=A 

WHILE A< > 0 THEN

R = N MOD 10

S = S+R^3

N = N/10

WEND

IF A=B THEN PRINT ''ARMSTRONG''

ELSE

 PRINT ''NOT ARMSTRONG''

END SUB

 CLICK HERE FOR MORE...