● 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
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
●1,12,123,1234,12345
=> CLS FOR I= 1 To 5 FOR J= 1 To I PRINT J; NEXT J PRINT NEXT I END
Comments
Post a Comment