Minimum multiple of m where digital sum equals m: Difference between revisions
Content added Content deleted
No edit summary |
(Added PureBasic) |
||
Line 159: | Line 159: | ||
end</syntaxhighlight> |
end</syntaxhighlight> |
||
{{out}} |
{{out}} |
||
<pre>Same as FreeBASIC entry.</pre> |
|||
<pre> |
|||
Igual que la entrada de FreeBASIC. |
|||
</pre> |
|||
==={{header|FreeBASIC}}=== |
==={{header|FreeBASIC}}=== |
||
Line 194: | Line 192: | ||
17449 38269 56413 37037 1108909 142498 103507 154981 150661 1333333 |
17449 38269 56413 37037 1108909 142498 103507 154981 150661 1333333 |
||
163918 322579 315873 937342 1076923 1030303 880597 1469116 1157971 12842857</pre> |
163918 322579 315873 937342 1076923 1030303 880597 1469116 1157971 12842857</pre> |
||
==={{header|PureBasic}}=== |
|||
<syntaxhighlight lang="PureBasic">Procedure.i floor(n.d) |
|||
Result = (n*2.0-0.5) |
|||
ProcedureReturn Result >> 1 |
|||
EndProcedure |
|||
OpenConsole() |
|||
c.i = 0 |
|||
n.i = 1 |
|||
While c < 70 |
|||
m.i = 1 |
|||
Repeat |
|||
nm.d = n*m |
|||
t.d = 0 |
|||
While nm |
|||
t = t + Mod(nm, 10) |
|||
nm = floor(nm/10) |
|||
Wend |
|||
If t = n |
|||
Break |
|||
EndIf |
|||
m + 1 |
|||
ForEver |
|||
c + 1 |
|||
Print(RSet(Str(m), 8) + " ") |
|||
If Mod(c, 10) = 0 |
|||
PrintN("") |
|||
EndIf |
|||
n + 1 |
|||
Wend |
|||
Input() |
|||
CloseConsole()</syntaxhighlight> |
|||
{{out}} |
|||
<pre>Same as FreeBASIC entry.</pre> |
|||
==={{header|Yabasic}}=== |
==={{header|Yabasic}}=== |
||
Line 217: | Line 252: | ||
end</syntaxhighlight> |
end</syntaxhighlight> |
||
{{out}} |
{{out}} |
||
<pre>Same as FreeBASIC entry.</pre> |
|||
<pre> |
|||
Igual que la entrada de FreeBASIC. |
|||
</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |