Tuesday, 22 October 2019

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="; P
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=...