Smallest multiple: Difference between revisions
no edit summary
Drkameleon (talk | contribs) (added Arturo) |
No edit summary |
||
Line 205:
{{out}}
<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#}}==
| |||