fork download
copy 
  1. Program bisiesto;
  2.  
  3. var 
  4. n:integer; 
  5.  
  6. begin 
  7.  
  8. write ('Digite un año: '); 
  9. readln(n); 
  10.  
  11. if ((n mod 4=0) and (n mod 100<>0) or (n mod 400 =0) and (n mod 3600<>0))then 
  12. write('El año es bisiesto') 
  13. else 
  14. write ('"El año no es bisiesto') 
  15.  
  16. end.
Success #stdin #stdout 0s 9136KB
comments (?)
stdin
copy 
400
stdout
copy 
Digite un año: El año es bisiesto
https://ideone.com/apYe7A
language:
Pascal (gpc 20070904)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!