Data update

Task/Semiprime/Modula-2/semiprime.mod2

@@ -0,0 +1,37 @@
+MODULE Semiprime;
+FROM STextIO IMPORT
+  SkipLine, WriteLn, WriteString;
+FROM SWholeIO IMPORT
+  ReadInt;
+
+VAR
+  N: INTEGER;
+
+PROCEDURE FactorsCnt(N: INTEGER): CARDINAL;
+VAR
+  Count, F, AN: CARDINAL;
+BEGIN
+  AN := ABS(N);
+  Count := 0;
+  IF AN >= 2 THEN
+    FOR F := 2 TO AN DO
+      WHILE AN MOD F = 0 DO
+        Count := Count + 1;
+        AN := AN DIV F
+      END
+    END
+  END;
+  RETURN Count
+END FactorsCnt;
+
+BEGIN
+  WriteString("Enter an integer: ");
+  ReadInt(N);
+  SkipLine;
+  IF FactorsCnt(N) = 2 THEN
+    WriteString("It is a semiprime.")
+  ELSE
+    WriteString("It is not a semiprime.")
+  END;
+  WriteLn;
+END Semiprime.