Hristos Vaskrse! Znate li kako da izračunate datum kada pada Vaskrs za bilo koju godinu? Algoritam koji sledi svojevremeno je na Sezam poslao Dragiša Krsmanović, a ako se ne bavite algoritmima, preuzmite program koji računa...
program vaskrs; var god, dan, mes, i, j, k: longint; begin write ('Godina za koju se računa datum Vaskrsa: '); readln (god); i:=god mod 19; j:=god mod 4; k:=god mod 7; i:=((19*i)+15) mod 30; j:=(2*j + 4*k + 6*i +6) mod 7; dan:=4+i+j ; if dan<=30 then mes:=4 else begin mes:=5; dan:=dan-30 end; writeln ('Pravoslavni Vaskrs je po novom kalendaru ', dan, '.', mes, '.', god); end.