Capt 2 exercicio 17

Faça um algoritmo que leia o dia do mês ( valor de 1 a 31), e o dia da semana correspondente (1 a

7). O algoritmo deve calcular e escrever o dia da semana (1 a 7) correspondente ao primeiro dia do
mês.

algoritmo "Primeiro dia do mes"
var
diaMes, diaSemana:inteiro

inicio
escreva("Informe o dia do mês (De 1 a 31): ")
leia(diaMes)
escreva("Informe o dia da semana (De 1 a 7): ")
leia(diaSemana)
escreval
escreval("Dia do mês fornecido: ", diaMes)
escreval("Dia da semana fornecido: ", diaSemana)
escreval
//Na ausência de uma fórmula mágica, usarei laço de repetição com estrutura de condição...
enquanto diaMes > 1 faca
diaMes <- diaMes - 1
se (diaSemana = 1) entao
diaSemana <- 7
senao
diaSemana <- diaSemana - 1
fimse
fimenquanto
escreval("O dia da semana correspondente ao primeiro dia do mês é: ", diaSemana)

fimalgoritmo