Tau number: Difference between revisions

Content added Content deleted

Inline

@@ Line 565: / Line 565: @@
 864   872   876   880   882   896   904   936   948
 996  1016  1040  1044  1048  1056  1068  1089  1096</pre>
+=={{header|Delphi}}==
+{{libheader| System.SysUtils}}
+{{Trans|Go}}
+<lang Delphi>
+program Tau_number;
+{$APPTYPE CONSOLE}
+uses
+  System.SysUtils;
+function CountDivisors(n: Integer): Integer;
+begin
+  Result := 0;
+  var i := 1;
+  var k := 2;
+  if (n mod 2) = 0 then
+    k := 1;
+  while i * i <= n do
+  begin
+    if (n mod i) = 0 then
+    begin
+      inc(Result);
+      var j := n div i;
+      if j <> i then
+        inc(Result);
+    end;
+    inc(i, k);
+  end;
+end;
+begin
+  Writeln('The first 100 tau numbers are:');
+  var count := 0;
+  var i := 1;
+  while count < 100 do
+  begin
+    var tf := CountDivisors(i);
+    if i mod tf = 0 then
+    begin
+      write(format('%4d ', [i]));
+      inc(count);
+      if count mod 10 = 0 then
+        writeln;
+    end;
+    inc(i);
+  end;
+  {$IFNDEF UNIX}  readln; {$ENDIF}
+end.</lang>
 =={{header|F_Sharp|F#}}==