Desglozar Dinero

Algoritmo cant_dinero
 Definir monto Como Entero
 
 bill20mil<-20000
 bill10mil<-10000
 bill5mil<-5000
 billmil<-1000
 mon500<-500
 mon100<-100
 mon50<-50
 mon10<-10
 mon5<-5
 decision<-"si"
 
 Mientras decision="si" Hacer
  monto<-0
  cant20mil<-0
  cant10mil<-0
  cant5mil<-0
  cantmil<-0
  cant500<-0
  cant100<-0
  cant50<-0
  cant10<-0
  cant5<-0
  
  
  Repetir
   Escribir "ingrese monto"
   leer monto
  Hasta Que monto>0
  
  mientras monto>=bill20mil
   monto<-monto-bill20mil
   cant20mil<-cant20mil+1
   
  Finmientras
  escribir "La cantidad de billetes de $20000 son: " ,cant20mil
  Mientras  monto>=bill10mil
   monto<-monto-bill10mil
   cant10mil<-cant10mil+1
   
  FinMientras
  Escribir "la cantidad de billetes de $10000 son: ", cant10mil
  Mientras  monto>=bill5mil
   monto<-monto-bill5mil
   cant5mil<-cant5mil+1
   
  FinMientras
  Escribir "la cantidad de billetes de $5000 son: ", cant5mil
  
  Mientras  monto>=billmil
   monto<-monto-billmil
   cantmil<-cantmil+1
   
  FinMientras
  Escribir "la cantidad de billetes de $1000 son: ", cantmil
  
  Mientras  monto>=mon500
   monto<-monto-mon500
   cant500<-cant500+1
   
  FinMientras
  Escribir "la cantidad de monedas de $500 son: ", cant500
  
  Mientras  monto>=mon100
   monto<-monto-mon100
   cant100<-cant100+1
   
  FinMientras
  Escribir "la cantidad de monedas de $100 son: ", cant100
  Mientras  monto>=mon50
   monto<-monto-mon50
   cant50<-cant50+1
   
  FinMientras
  Escribir "la cantidad de monedas de $50 son: ", cant50
  Mientras  monto>=mon10
   monto<-monto-mon10
   cant10<-cant10+1
   
  FinMientras
  Escribir "la cantidad de monedas de $10 son: ", cant10
  Mientras  monto>=mon5
   monto<-monto-mon5
   cant5<-cant5+1
   
  FinMientras
  Escribir "la cantidad de monedas de $5 son: ", cant5
  Escribir "Desea continuar si/no"
  leer decision
  
 Fin Mientras
 
FinAlgoritmo