12 lines
311 B
ObjectPascal
12 lines
311 B
ObjectPascal
##
|
|
uses System;
|
|
|
|
function islongyear(year: integer): boolean;
|
|
begin
|
|
var startdate := new DateTime(year, 1, 1);
|
|
var enddate := new DateTime(year, 12, 31);
|
|
result := (startdate.DayOfWeek = DayOfWeek.Thursday) or (enddate.DayOfWeek = DayOfWeek.Thursday)
|
|
end;
|
|
|
|
(2000..2100).Where(y -> islongyear(y)).Println;
|