# coin.ps1

function get_coin_set([int]$pay){
    [int]$use = 0
    [int[]]$coins = (10000,5000,1000,500,100,50,10,5,1)
    for([int]$i=0;$i -lt $coins.Length;$i++){
        $pay -= ($use = [Math]::Floor($pay / $coins[$i])) * $coins[$i]
        "$($coins[$i]):${use}枚"
    }
}
get_coin_set (Read-Host -Prompt '数値を入力')