Data update

2026-04-30 12:34:36 -04:00 · 2026-04-30 12:34:36 -04:00 · cbaf4c4b64
commit cbaf4c4b64
parent 4bb20c9b71
12390 changed files with 318560 additions and 27248 deletions
--- a/Task/Perfect-numbers/VBScript/perfect-numbers.vbs
+++ b/Task/Perfect-numbers/VBScript/perfect-numbers.vbs
@ -0,0 +1,17 @@
+Function IsPerfect(n)
+	IsPerfect = False
+	i = n - 1
+	sum = 0
+	Do While i > 0
+		If n Mod i = 0 Then
+			sum = sum + i
+		End If
+		i = i - 1
+	Loop
+	If sum = n Then
+		IsPerfect = True
+	End If
+End Function
+
+WScript.StdOut.Write IsPerfect(CInt(WScript.Arguments(0)))
+WScript.StdOut.WriteLine