'Ashwin Chandramouli

'10/22/20

'To prompt the user to enter the number of quarters, dimes, nickels, and pennies they have, and then calculate the total amount of money (in dollars) that they have.

​

Imports System

Public Module Module1

    Public Sub Main()

        Dim cents, quarter, dime, nickel, penny As integer

        Console.write("Enter the number of cents: ")

        cents = Console.ReadLine()

        quarter = cents\25

        dime = (cents Mod 25)\10

        nickel = ((cents Mod 25) Mod 10)\5

        penny= (((cents Mod 25) Mod 10) Mod 5)\1

        Console.WriteLine("Quarters: " & quarter)

        Console.WriteLine("Dimes : " & dime)

        Console.WriteLine("Nickels: " & nickel)

        Console.WriteLine("Pennies: " & penny)

    End Sub

End Module