AssiGnMent oF daShAin & tiHar vacAtiOn.
16) WAP to check Armstrong or not.
=> CLS
INPUT " Enter any number";N
A=N
S=0
WHILE N<>0
R= N MOD 10
S=S+R^3
N= N\ 10
WEND
IF A= S THEN
PRINT " The number is Armstrong "
ELSE
PRINT " The number is not Armstrong "
END IF
END
=> CLS
INPUT " Enter any number";N
A=N
S=0
WHILE N<>0
R= N MOD 10
S=S+R^3
N= N\ 10
WEND
IF A= S THEN
PRINT " The number is Armstrong "
ELSE
PRINT " The number is not Armstrong "
END IF
END
Comments
Post a Comment