Microsoft Small Basic

Program Listing: CRP675

List Program

TextWindow.Write("Indicaţi suma: ")
n=TextWindow.ReadNumber()
bani[1]=500
bani[2]=200
bani[3]=100
bani[4]=50
bani[5]=10
bani[6]=1
TextWindow.WriteLine("Suma indicată de Dvs se împarte astfel în bancnote: ")
i=1
While n>0
cate=Math.Floor(n/bani[i])
If cate>0 Then
TextWindow.WriteLine(cate+" bacnote de "+bani[i])
EndIf
n=Math.Remainder(n,bani[i])
i=i+1
EndWhile