Question

Alguém que entende de programação no VIsualg pode me ajudar com está questão

Leia um mês e ano e imprima a quantidade de dias que este mês possui. Lembre-se dos anos
bissextos.
Dicas:
- Utilizar o comando escolha;
- Para ser ano bissexto, verificar dentro do comando escolha do mês de fevereiro, se o ano é
múltiplo de 4:
Escolha mês
Caso 1,3,5,7,8,10,12
//Colocar aqui mensagem indicando mês de 30 dias;
Caso 2:
//Colocar aqui a verificação do ano bissexto;
Caso .............
............
Fimescolha

Answer 1

Cara que portugol complicado esse kkkk testa o código ae e vê se tá tudo certo kk por que fiz no celular! e corrige a indentacao também blza? flw! ;)


algoritmo "AnoMes"

var ano, mes: inteiro


inicio

escreval ("Digite o ano: ")
leia (ano)

escreval("-------- Escolha o mês entre: ")
escreval ("1, 2, 3, 4 ,5, 6, 7, 8, 9, 10, 11, 12")
leia (mes)

escolha (mes)

caso (1) faca
escreval("---- JANEIRO, Mês de 30 Dias")
caso (2) faca
se (ano % 4 = 0) entao
escreval ("Ano ", ano, " bissexto! ")
escreval("---- Mês FEVEREIRO")
fimse
caso (3) faca
escreval("---- Mês MARÇO Mês de 30 Dias")
caso (4) faca
escreval("---- Mês ABRIL")
caso (5) faca
escreval("---- Mês MAIO Mês de 30 dias")
caso (6) faca
escreval("---- Mês JUNHO")
caso (7) faca
escreval("---- Mês JULHO Mês de 30 dias")
caso (8) faca
escreval("---- Mês AGOSTO Mês de 30 dias")
caso (9) faca
escreval("---- Mês SETEMBRO")
caso (10) faca
escreval("---- Mês OUTUBRO Mês de 30 dias")
caso (11) faca
escreval("---- Mês NOVEMBRO")
caso (12) faca
escreval("---- Mês DEZEMBRO Mês de 30 dias")



fimescolha

fimalgoritmo