12-04-17, 09:07 PM
(آخر تعديل لهذه المشاركة : 12-04-17, 10:36 PM {2} بواسطة silverlight.)
هذا حل اخر .....
الناتج بطريقتك يكون كالتالي
PHP كود :
Dim x As Integer = 4
Dim y As Integer = 1245789892
Dim s As String = y.ToString()
Dim values As Integer() = New Integer(s.Length - 1) {}
For i As Integer = 0 To s.Length - 1
Dim current As String = y.ToString()(i)
' في الخطوة التالية يت م عكس الارقام
values(s.Length - 1 - i) = CInt(current)
Next
Dim total As Integer = 0
For i As Integer = 0 To values.Length - 1
Dim v As Integer = values(i)
total += (v) * (x)
x += 1
Next
' استخدم الناتج الاجمالي كما يحلو لك
PHP كود :
total = total Mod 100

