'Brenden Hansen 

'This program finds what kind of coins a person has

'10/20/20

​

Imports System

Public Module Module1

    Public Sub Main()

        'Step 1: Declare Variables

        Dim quarters, dimes, nickels, pennies As integer 

        Dim cents As integer 

        'Step 2: Get your input 

        console.Write("Enter number of cents: ")

        cents = Console.Readline()

        'Step 3: Calculate

        quarters = cents \ 25

        cents = cents mod 25

        dimes = cents \ 10

        cents = cents mod 10

        nickels = cents \ 5

        cents = cents mod 5 

        pennies = cents \ 1 

        'Step 4: Display results 

        Console.writeLine("Quarters: " & Quarters) 

        Console.writeLine("Dimes: " & Dimes)

        Console.writeLine("Nickels: " & Nickels)

        Console.writeLine("Pennies: " & Pennies)

    End Sub

End Module