Ejemplo sacando año bisiesto Turbo pascal.
{
En este ejemplo de "pascal" se muestra como verificar si x año es bisiesto o no.
para el cual solo deberemos introducir el valor de algun numero que quieras saber.
¿Ques es un año bisiesto?
un año que tiene x dia de mas}
Aqui el codigo:
Program P3AE4 (input,output);
uses
crt;
Var
anyo: Integer;
Begin
writeln('Ingrese el año:');
readln(anyo);
if ((((anyo mod 100) <> 0) and ((anyo mod 4)=0)) or ((anyo mod 400)=0)) Then
begin
writeln('El año es bisieto');
end
else
begin
writeln('El año no es bisieto');
end;
readkey;
end.
Descargar código:
© 2025 TAS All rights reserved.