algoritmo "semnome"
//16. Sabe-se que o quilowatt de energia custa um quinto do salário mínimo. Fazer o
//algoritmo que leia o valor do salário mínimo e a quantidade de quilowatts gasta por
//residência. Calcule e exiba:
//a) Valor, em reais, de cada quilowatt;
//b) Valor, em reais, a ser pago por essa residência;
//c) Novo valor a ser pago por essa residência, a partir de um desconto de 15%.

var
salario_minimo, quilowatts, valor_quilowatts, total_consumo, desconto, total_pagar:real

inicio
// Seção de Comandos
escreval("qual o valor do salario minimo")   //mostra na tela do usuário a pergunta
leia(salario_minimo)  //ler a resposta do usuário

escreval("quantos quilowatts vc gastou este mes?")//mostra na tela do usuário a pergunta
leia(quilowatts) //ler a resposta do usuário

//***********************************************************
//a) Valor, em reais, de cada quilowatt;
//a propria questão diz que o valor do quilowatt é um quinto do salario minimo
valor_quilowatts <-  salario_minimo * 1/5 //calculo do valor do quilowatt
escreval("O valor do quilowatt é ", valor_quilowatts) //mostrar o resultado do calculo do valor do quilowatt
//***********************************************************


//b) Valor, em reais, a ser pago por essa residência;
total_consumo <- valor_quilowatts *  quilowatts  // calcular o total (em reais) a pagar de acordo com o consumo
escreval("vc irah pagar em reais o total de ",total_consumo) //mostrar na tela o total a pagar em reais
//***********************************************************

//c) Novo valor a ser pago por essa residência, a partir de um desconto de 15%.
// vale dizer que na matemática o nome do símbolo % é "por cento" e isso não é atoa.
// "por cento" quer dizer "por cem". por exemplo, "um oitavo" é a mesma coisa que "um por oito", ou seja, "um dividido por 8" (1/8)
// na porcentagem é a mesma coisa. a questão diz que é 15%. 15% em decimal é 15/100

desconto <- total_consumo * 15/100 //achamos 15% do valor do consulmo já em reais (a mesma que mostramos na B)
total_pagar <- total_consumo - desconto  //subtraimos os 15% para acharmos o novo valor (agora com o desconto aplicado)
escreval("o total a pagar com desconto eh: ",total_pagar) //exibimos na tela o novo valor já com desconto
//***********************************************************
fimalgoritmo