Tuesday, 22 October 2019

16) 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
at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)

Experience

  My  Experience              of   educational tour An educational tour is a fun – filled experience. As the tour may be too far away p...

  • 12) sum of digits.
    =>  CLS INPUT "Enter any number"; N S = 0 WHILE N<> 0 R = N MOD 10 S = S+R N = N\10 WEND PRINT "Sum of digits=...
  • 18) Factors.
    =>  CLS INPUT "Enter any number"; N FOR I = 1 TO N IF N MOD I = 0 THEN PRINT I NEXT I END
  • 13) product of digits.
    =>  CLS INPUT "Enter any number"; N P = 1 WHILE N<> 0 R = N MOD 10 P = P*R N = N\10 WEND PRINT "Product of digits=...