L2 - 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 "Informa o dia da semana do primeiro dia do mes"
 //Autor: Guilherme Paulino
 //Data: 02/09/2010
Var
  x,dia, dias: inteiro
Inicio
  Escreval("|1 - 31|")
  Escreva("Informe o dia do mes: ")
  Leia(dia)
  Escreval("| 1 <- Dom, 2 <- Seg, 3 <- Ter, etc.. |")
  Escreva("Informe o dia da semana: ")
  Leia(dias)
para x de 1 ate dia faca
     se( dias > 1 )entao
        dias <- dias - 1
     senao
        dias <- 7
        //abaixo de domingo, volta para o sabado
     fimse
  fimpara
  se( dias < 7 )entao
      dias <- dias + 1
  senao
      dias <- 1
  fimse
  Escreva("O primeiro dia do mes, foi dia ",dias," da semana.")
Fimalgoritmo
Verificado pelo VisuAlg