Numbers divisible by their individual digits, but not by the product of their digits.: Difference between revisions
Numbers divisible by their individual digits, but not by the product of their digits. (view source)
Revision as of 04:42, 9 April 2021
, 3 years agoAdd MAD
Not a robot (talk | contribs) (Add FOCAL) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 299:
488 515 555 636 648 666 728 777 784 824 848 864 888 936 999
</pre>
=={{header|MAD}}==
<lang MAD> NORMAL MODE IS INTEGER
PRINT COMMENT $ $
INTERNAL FUNCTION(N)
ENTRY TO DVDGT.
P=1
C=N
DGT WHENEVER C.NE.0
Z = C/10
D = C-Z*10
WHENEVER D.E.0 .OR. N/D*D.NE.N, FUNCTION RETURN 0B
P = P*D
C = Z
TRANSFER TO DGT
END OF CONDITIONAL
FUNCTION RETURN N/P*P.NE.N
END OF FUNCTION
THROUGH TEST, FOR I=1, 1, I.E.1000
TEST WHENEVER DVDGT.(I), PRINT FORMAT FMT, I
VECTOR VALUES FMT = $I4*$
END OF PROGRAM </lang>
{{out}}
<pre style="height: 50ex;"> 22
33
44
48
55
66
77
88
99
122
124
126
155
162
168
184
222
244
248
264
288
324
333
336
366
396
412
424
444
448
488
515
555
636
648
666
728
777
784
824
848
864
888
936
999</pre>
=={{header|Phix}}==
| |||