L3-Exercício 11-Escreva um algoritmo que leia um dia, mês e ano e escreva, para essa data lida, o número de dias transcorridos no ano.


algoritmo "Dias transcorridos"
// Função :
// Autor :
// Data : 21/09/2010
// Seção de Declarações
var
   dia,mes,ano,dt:inteiro
inicio
// Seção de Comandos
 escreva ("Entre com o dia,mês e ano, apertando enter ao digitar cada um ")
 leia(dia,mes,ano)

 se(mes=1) entao
  dt<-dia
 senao
  se(mes=2)entao
   dt<-dia+30
  senao
    se(mes=3) entao
     dt<-dia+60
    senao
      se(mes=4)entao
        dt<-dia+90
      senao
        se (mes=5)entao
          dt<-dia+120
        senao
          se(mes=6)entao
            dt<-dia+150
          senao
            se (mes=7)entao
              dt<-dia+180
            senao
              se (mes=8)entao
                dt<-dia+210
              senao
                se (mes=9)entao
                  dt<-dia+240
                senao
                  se(mes=10)entao
                    dt<-dia+270
                  senao
                    se (mes=11)
                     dt<-dia+300
                    senao
                      se(mes=12) entao
                        dt<-dia+330
                      senao
                      fimse
                    fimse
                  fimse
                fimse
              fimse
            fimse
          fimse
        fimse
      fimse
    fimse
  fimse
 fimse

 escreva("Foram transcorridos ",dt," dias")
fimalgoritmo