terça-feira, 14 de junho de 2011

algoritmo ano bissexto

   Que informe se um dado ano é ou não bissexto. Obs: um ano é bissexto se ele for divisível por 400 ou se ele for divisível por 4 e não por 100.
algoritmo "bissexto"
var
   ano: inteiro
inicio
   ano <- 0
   escreva ("informe o ano")
   leia (ano)
   se (ano <>0)e(ano mod 4 = 0)entao
     escreva (" ano bissexto")
      senao
        escreva("ano não é bissexto")
        fimse
fim

2 comentários:

  1. Excellent post!!! Blogging has certainly helped me to became a better researcher.. The idea out there are creative, unique & quiet brilliant

    ResponderExcluir