Minimum multiple of m where digital sum equals m: Difference between revisions
Minimum multiple of m where digital sum equals m (view source)
Revision as of 05:51, 30 January 2022
, 2 years agoAdd FOCAL
(Added Swift solution) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 431:
1076923 1030303 880597 1469116 1157971 12842857</pre>
=={{header|FOCAL}}==
<lang focal>01.10 F N=1,40;D 2
01.20 Q
02.10 S M=0
02.20 S M=M+1
02.30 S D=N*M
02.40 D 3
02.50 I (N-S)2.2,2.6,2.2
02.60 T "N",%2,N," M",%6,M,!
03.10 S S=0
03.20 S E=FITR(D/10)
03.30 S S=S+(D-E*10)
03.40 S D=E
03.50 I (-D)3.2</lang>
{{out}}
<pre style='height:50ex;'>N= 1 M= 1
N= 2 M= 1
N= 3 M= 1
N= 4 M= 1
N= 5 M= 1
N= 6 M= 1
N= 7 M= 1
N= 8 M= 1
N= 9 M= 1
N= 10 M= 19
N= 11 M= 19
N= 12 M= 4
N= 13 M= 19
N= 14 M= 19
N= 15 M= 13
N= 16 M= 28
N= 17 M= 28
N= 18 M= 11
N= 19 M= 46
N= 20 M= 199
N= 21 M= 19
N= 22 M= 109
N= 23 M= 73
N= 24 M= 37
N= 25 M= 199
N= 26 M= 73
N= 27 M= 37
N= 28 M= 271
N= 29 M= 172
N= 30 M= 1333
N= 31 M= 289
N= 32 M= 559
N= 33 M= 1303
N= 34 M= 847
N= 35 M= 1657
N= 36 M= 833
N= 37 M= 1027
N= 38 M= 1576
N= 39 M= 1282
N= 40 M= 17497
</pre>
=={{header|Forth}}==
{{works with|Gforth}}
| |||