Ano Bissexto em Pascal

As regras são:

De 4 em 4 anos é ano bissexto.
De 100 em 100 anos não é ano bissexto.
De 400 em 400 anos é ano bissexto.
Prevalecem as últimas regras sobre as primeiras

Fonte: Wikipédia: http://pt.wikipedia.org/wiki/Ano_bissexto

Vamos ao programa que é bem simples:

Program Bissexto;
Uses Crt;
Var
  ano,i : Integer;
Begin
  ClrScr;
  For i := 1 to 5 do
  Begin
    Write ('Digite um ano: ');
    ReadLn (ano);
    If (ano mod 4 = 0) and (ano mod 100 <> 0) or (ano mod 400 = 0) then
      WriteLn ('O ano ',ano,' ‚ bissexto.')
    Else
      WriteLn ('Não ‚ bissexto.');
  End;
  ReadLn;
End.

Bissexto Pascal

Qualquer dúvida entre em contato. Favor indicar a versão do Pascal (Free Pascal, Dev Pascal, Lazarus, PascalZim) e se aprendeu PROCEDURE ou FUNCTION.

Nenhum comentário:

Postar um comentário