Tedy uvnitř té smyčky stačí jedna podmínka:
Kód: Vybrat vše
if (rok je přestupný)
pocdnu:=pocdnu+366;
else
pocdnu:=pocdnu+365;
Přejít na rozšířené vyhledávání
Kód: Vybrat vše
if (rok je přestupný)
pocdnu:=pocdnu+366;
else
pocdnu:=pocdnu+365;