Question

escreva um programa que expresse certa quantidade de reais em notas e moedas de circulação.
Urgente

Answer 1

algoritmo "Notas e moedas"

var
    valor : real

inicio
escreva("Digite o valor : R$")leia(valor)
escreval("")
escreval("O valor pode ser expresso nas seguintes opções: ")
escreval("")
enquanto valor > 0 faca   
se valor >= 100 entao      
escreval("Nota de R$ 100,00")      
valor <- valor - 100   
senao      
se valor >= 50 entao         
escreval("Nota de R$ 50,00")        
 valor <- valor -  50      
senao         
se valor >= 20 entao            
escreval("Nota de R$ 20,00")            
valor <- valor - 20         
senao            
se valor >= 10 entao               
escreval("Nota de R$ 10,00")               
valor <- valor - 10            
senao               
se valor >= 5 entao                  
escreval("Nota de R$ 5,00")                  
valor <- valor - 5               
senao                  
se valor >= 2 entao                     
escreval("Nota de R$ 2,00")                    
valor <- valor - 2                  
senao                     
se valor >= 1 entao                        
escreval("Moeda de R$ 1,00")                        
valor <- valor - 1                     
senao                        
se valor >= 0.5 entao                           
escreval("Moeda de R$ 0,50")                           
valor <- valor - 0.5                        
senao                           
se valor >= 0.25 entao                              
escreval("Moeda de R$ 0,25")                              
valor <- valor - 0.25                           
senao                              
se valor >= 0.1 entao                                 
escreval("Moeda de R$ 0,10")                                 
valor <- valor - 0.1                              
senao                                 
se valor >= 0.05 entao                                   
 escreval("Moeda de R$ 0,05")                                    
valor <- valor - 0.05                                 
senao                                    
se valor >= 0.005 entao                                       
escreval("Moeda de R$ 0,01")                                       
valor <- valor - 0.01                                    
senao                                       
interrompa                                    
fimse                                 
fimse                              
fimse                           
fimse                        
fimse                     
fimse                  
fimse               
fimse            
fimse         
fimse      
fimse   
fimse
fimenquanto
fimalgoritmo