Smallest multiple: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (added Arturo) |
No edit summary |
||
Line 205: | Line 205: | ||
{{out}} |
{{out}} |
||
<pre>232792560</pre> |
<pre>232792560</pre> |
||
=={{header|Delphi}}== |
|||
{{works with|Delphi|6.0}} |
|||
{{libheader|SysUtils,StdCtrls}} |
|||
<syntaxhighlight lang="Delphi"> |
|||
function IsDivisible120(N: integer): boolean; |
|||
{Is N evenly divisible by numbers 1..20} |
|||
var I: integer; |
|||
begin |
|||
Result:=False; |
|||
{For speed - larger numbers less likely divisor} |
|||
for I:=20 downto 2 do |
|||
if (N mod I)<>0 then exit; |
|||
Result:=True; |
|||
end; |
|||
procedure SmallestDivide120(Memo: TMemo); |
|||
var I: integer; |
|||
begin |
|||
{Only look at even numbers for speed} |
|||
for I:=1 to High(Integer) do |
|||
if IsDivisible120(I*2) then |
|||
begin |
|||
Memo.Lines.Add(FloatToStrF(I*2,ffNumber,18,0)); |
|||
break; |
|||
end; |
|||
end; |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
232,792,560 |
|||
Elapsed Time: 920.406 ms. |
|||
</pre> |
|||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |