Fast and furiously add others/volume1

1 files changed, 33 insertions, 0 deletions

diff --git a/others/volume1/004.pas b/others/volume1/004.pas
new file mode 100644
index 0000000..caf5142
--- /dev/null
+++ b/others/volume1/004.pas
@@ -0,0 +1,33 @@
+var
+  prime: array [2..1000000] of boolean;
+  i, j, n, k: longint;
+  b: boolean = true;
+
+begin
+  for i := 2 to 1000000 do
+    prime[i] := true;
+  for i := 2 to 1000 do
+    if prime[i] then
+      for j := i to 1000000 div i do
+        prime[i * j] := false;
+
+  readln(n, k);
+  if n < 2 then
+    writeln('FALSE')
+  else if n <= 1000000 then
+    writeln(prime[n])
+  else
+    begin
+      for i := 2 to trunc(sqrt(n)) do
+        if n mod i = 0 then
+        begin
+          b := false;
+          break
+        end;
+      writeln(b)
+    end;
+  for i := 2 to k do
+    if prime[i] then
+      write(i, ' ');
+  writeln
+end.