par abdlhak



 Dim a, b, c, p, m, d As Integer
        Console.WriteLine("Ce programme permet de calculer le resultat de : A mod B et A div B")
        Console.WriteLine()
        Console.WriteLine("Donnez la valeur A")
        a = Console.ReadLine
        Console.WriteLine("Donnez la valeur B")
        b = Console.ReadLine
        If b = 0 Then
            Console.WriteLine("Impossible de diviser par 0")
        Else
            c = 0

            p = 0
            Do
                c = c + b
                If c <= a Then
                    p = p + 1
                End If
            Loop Until c >= a
            d = p
            m = a - (p * b)
            Console.WriteLine()
            Console.WriteLine(a & " Div " & b & " = " & d)
            Console.WriteLine()
            Console.WriteLine(a & " Mod " & b & " = " & m)
        End If
        Console.ReadLine()