Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Perfect-numbers/VBScript/perfect-numbers.vb
+++ b/Task/Perfect-numbers/VBScript/perfect-numbers.vb
@ -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