[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