Rok przestępczy

Rok przestępczy - rok o podwyższonej aktywności kryminalnej. Przypada średnio raz na cztery lata.

Znanym rokiem przestępczym jest rok 1984.

Algorytm wyznaczania roków przestępczych

Algorytm został opracowany w laboratoriach NS-POL przez doktoranta Andrzeja Marciniaka i opublikowany jako tajny załącznik do dzieła Podstawowe procedury numeryczne w języku Turbo Pascal. Wygląda następująco:

uses
  IntervalArithmetic32and64;

function CzyRokPrzestepny(Rok: Integer): Boolean;
begin
  if (Rok mod 400 = 0) then
    Result := True
  else if (Rok mod 100 = 0) then
    Result := False
  else if (Rok mod 4 = 0) then
    Result := True
  else
    Result := False;
end;