Minimum multiple of m where digital sum equals m: Difference between revisions
Content added Content deleted
(Added various BASIC dialects (Chipmunk Basic, Gambas and XBasic)) |
(Added True BASIC) |
||
| Line 278: | Line 278: | ||
{{out}} |
{{out}} |
||
<pre>Same as FreeBASIC entry.</pre> |
<pre>Same as FreeBASIC entry.</pre> |
||
==={{header|True BASIC}}=== |
|||
{{trans|FreeBASIC}} |
|||
<syntaxhighlight lang="qbasic">LET c = 0 |
|||
LET n = 1 |
|||
DO WHILE c < 70 |
|||
LET m = 1 |
|||
DO |
|||
LET nm = n*m |
|||
LET t = 0 |
|||
DO WHILE nm<>0 |
|||
LET t = t+REMAINDER(nm,10) |
|||
LET nm = IP(nm/10) |
|||
LOOP |
|||
IF t = n THEN EXIT DO |
|||
LET m = m+1 |
|||
LOOP |
|||
LET c = c+1 |
|||
PRINT USING "######## ": m; |
|||
IF REMAINDER(c,10) = 0 THEN PRINT |
|||
LET n = n+1 |
|||
LOOP |
|||
END</syntaxhighlight> |
|||
==={{header|XBasic}}=== |
==={{header|XBasic}}=== |
||