21 lines
459 B
Plaintext
21 lines
459 B
Plaintext
#include <basico.h>
|
|
|
|
#proto esañolargo(_X_)
|
|
|
|
algoritmo
|
|
|
|
año=1800, c=5
|
|
|
|
imprimir ("Long (53 week) years between 1800 and 2100:\n\n" )
|
|
|
|
iterar grupo ( ++año, #( año<=2100 ), \
|
|
cuando ( #( es año largo( año )==4 || es año largo( año-1 )==3 ) ){ \
|
|
imprimir ( año, " ", solo si( #( c==0 ) , NL; c=6 ), --c ) } )
|
|
|
|
terminar
|
|
|
|
subrutinas
|
|
|
|
es año largo (y)
|
|
retornar ' #( (y + floor(y / 4) - floor(y / 100) + floor(y / 400)) % 7 ) '
|